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INTRODUCTION 


Here in your hands you hold a map to one of the most 
fascinating journeys you will ever take. Even if you have never 
touched a computer before you bought your VIC 26, we hope 
to share with you — step by simple step — the secrets of 
computer programming. 


It’s not going to be difficult. We’ve deliberately included a 
number of major games in the book, so after you’ve entered 
and run the games, you’ll discover you’ve learned to program 
almost while you were not looking. It’s going to be painless and 
it’s going to be fun. 


The whole process is greatly simplified by the fact that you’re 
learning on a VIC 20. Representing the leading edge of 
computer technology, the VIC 26 is a computer that was 
designed to be friendly, and easy and rewarding to use. You’ve 
picked the best computer, and this book is the most direct route 
to programming expertise. 


Come on and join us now, as together we discover how you can 
make the most of your VIC 26. 


Tim Hartnell 
London, July, 1983 


A NOTE ON THE 
AUTHORS: 


Tim Hartnell is the most widely published author of books 
related to the Sinclair computers in the world. Founder of the 
British National ZX Users’ Club and its magazine Interface, he 
has written many books for the ZX80, ZX81 and ZX Spectrum. 
He is founding editor of the British bimonthly magazine ZX 
Computing, and is involved in user-group activities in the US 
and UK. 


Mark Ramshaw is a schoolboy, with an active interest in VIC 
games. He has already written one book of VIC games, and is 
co-author of a games book for the Commodore 64. 


CHAPTER ONE 
DISCOVERING THE 
KEYBOARD 


You’ve just bought a great computer, and in this book we’re 
going to show you how to get the most out of it. Don’t worry if 
this is the very first computer you have ever owned. We’re 
going to take things slowly, and in small steps, so you’ll haveno 
trouble in keeping up with us. 


READ THE BOOK WITH YOUR COMPUTER 
TURNED ON 


It is vital that you have the computer turned on at all times when 
reading this book (or at least the first time you work throughit). 
This is an ‘action book’, and unlike a novel, it is not designed 
simply to be read. This book is like a book on how to drive. You 
could never learn about changing gears, and how it feels to 
handle an auto in traffic, without actually going out and taking 
command of a vehicle. So it is with your computer and this 
book. Try out each new command and function when it is 
explained to you, experiment with the games and other 
programs, and you’ll find you’re learning to program without 
even trying. 


THE KEYBOARD 


First we have to find our way around the keyboard. It looks 
pretty frightening the first time you look at it, but once you’ve 
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THE SHIFT KEYS 


The three most important k 
eys on the keyboard are | i 
celeste Pos (the key marked shift ae te 
€ Commodore logo) and in th b i 
hand corner (marked shift). Th ane 
SSP pRpceere Beak e two keys marked shift act the 


N 
slg asad up your computer as explained in the manual 
2 e€ Commodore statement at the top of the screen. 


Press any of the ke : 
: ys and the main : 
will anpear on thescrern: symbol printed on the key 


DELETE 


By now the screen ma i 
Nth y be looking pretty crowd 
ip Rae oon a euire area. If you look to i soreeoie 
€ keyboard you’ll see a key marked 
the delete key. The im Bin Se BLUE eet 
: portant word for now is the word D 
you hold down the DELETE key, and continue to hold it ie 


you’ll find it will move a ; 
esc es cross th : 
erasing it as it goes. € printed material to the left, 


An i : i 
e pas SP iees: Ps hihi like this from the bottom 
urn O1f the power for a short whi 
ile 
this causes the computer to forget the program which i He ie 
computer, this is not advised. : Bie 


COMMODORE SHIFT 


If 
eg i i RS Eon ae shift key and continue to 
; Ss another ke "ll fi 
left hand graphic chara i Beg Se olor 
I cter written on the front of 
appearing on the screen. For example. j oy 
with the Commodore key os 
| y, you get the bottom left hand 

graphic symbol printed on the screen. In the same way rene 
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the G key and holding down the Commodore shift will get you 
the left hand line graphic. 


Try pressing a number of different keys. You’ll see, in each 
case, that you get the graphic symbol on the left of the key 
printed on the screen. The Commodore shift, when used with a 
key without a graphic symbol on the left, acts like an ordinary 


shift key. 


NORMAL SHIFT 

Holding down the shift key and a normal key with a right hand 
graphic symbol will print the right hand graphic symbol on the 
screen (in much the same way as the Commodore shift 
produced the left hand graphic symbols). When used with the 
keys without graphic symbols on them, it will print the symbol 
above the main character on the key, e.g. shift with 2 gives the 
quotes symbol on the screen. 


Pressing the shift and Commodore keys together will switch 
between upper and lower case modes. Your VIC is in upper case 
mode when switched on. In lower case mode, all program 
statements must be typed in lower case. The Commodore key 
will still print graphic symbols, but the normal shift will give 
capital letters instead of right hand graphic characters. 


There is still more. Don’t worry if this seems confusing. You'll 
be surprised at how quickly it will fall into place within half an 
hour or so of playing at the keyboard. 


CONTROL KEY 

The control key is the one labelled CTRL at the left of the 
keyboard. Pressing this with one of the numeric keys will give 
the colour typed on the key, or in the case of the 9 and @ keys, 
will give reverse on and reverse off modes. All future text will be 
printed in that colour until it is changed. Reverse on means that 
the letter’s foreground and background colours are swapped — 
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try it and see. Reverse off goes back ton 


ormal text. Remember, 
you can’t see white writing on a white 


background. 


THE CURSOR 


The small square that flashes on an 
as the cursor. This shows 
will be printed on the scr 
of the keyboard are the 
cursor down and right, a 
useful because it means t 
you want the computer t 
move the cursor back up 
return again. The compu 
line again. 


d off on the screen is known 
you where the next thing that you type 
een. The two keys at the bottom right 
cursor control keys. They move the 
nd up and left with shift key. This is 
hat if you have typed a command and 
0 repeat it again, all you have to do is 
to the command you typed and press 
ter will think that you have typed the 


At the top right of the keyboard is the INST/DEL key. Wehave 
already seen how this deletes the character to the left of the 
cursor. When used with the shift key, it inserts a space to the left 
of the cursor to allow you to enter more text into an existing 
line. Remember the computer will not accept a line consisting 
of more than eighty eight characters (four lines). To the left of 
this key is the CLR/HOME key. Pressing this makes the cursor 


go to the top left hand corner of the screen. Pressing it with the 
shift key clears the screen as well. 


QUOTES/INST MODE 


After typing a quotes character or inserting one or more spaces, 
the computer goes into a special mode which is mainly used in 
programs to format displays. When in this mode, pressing a 
colour, reverse on, reverse off , clear screen, cursor home or the 
cursor control keys will not perform the normal function. 
Instead, a weird graphic character is printed, each key having a 
different character. They also have numbers corresponding 
to them known as CONTROL CODES. When used in a 
program these control symbols/codes can be used to change the 
colour, format, etc. of the printout. The cursor can be moved 
around using the cursor controls inside a program to allow the 


\ 
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= ; a 
iti iece of writing will take place to 
Mee Oo aes on be achieved by putting the one 
ete, otes or by using the statement known as Neate 
alps is the control code needed). This means ‘c : a 
eae a is’, and is quite often used ina PRINT sta pe 
te on os later. This mode is ee bone pane 

i is pressed or all the ins 
ng part ane eee will not work in INSERT mode. 


s/ 
y 


used for reference, not to be typed in. 


19 PRINTCHRS(144); "CHANGE TO BLACK” 


e ~-GPRu 1" 

PRINT a f 
28 PRINT CHRS Sc abe aa Maeneee 
25 PRINT" iz : 
2 PRINT CHRS(28); "CHANGE as 
35 PRINT" Bh - ae ae 
4@ PRINTCHRS(159); CHANGE i: 
45 PRINT" a CTRL teal 
Si PRINTCHRS<156); “CHANGE TOF RPLE 
55 PRINT" @- CTRL & 


mms ree 


RINT" i ~ CTRL 6° 
65 PRINT -~ CTRL 6" 
7Q PRINT CHRS(31)i "CHANGE TO BLUE 


2 iNT" 2 es CTRL ee . ere 
ie PRINTOHRS (159); “CHANGE TO. YELLOW” 
a5 PRINT" mi ~ CTRL 8" 

9@ PRINT CHRS(16); "REVERSE oi" 
95 PRINT” dj ~ CTRL a 
{8G PRINTCHRS(146); "REVERSE OF 

{a5 PRINT® B= CTRL 

11 PRINT CHREC2O); "DELETE? 
2 INT" - ~ INST/DEL 
3 PRINTCHRS(148);" INSERT" 
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25 fF i 
129 ‘ RINT" iz a SHIFT THOT Ino pon 
130 PRINT CHRECI9>; "CURSOR HOME? 
135 PRINT" ea eens 
Oe tar soreeae Serra LLY Hae" 
142 PRINTCHRS<147); "CLEAR SCREEN 
is5 PRINT" ECLEAR SCREEN" 
158 soe 2] ~ SHIFT CLR“HOME" 
Ae bates ent CURSOR as te 
bay" ke is beach on 
a Be- CRSR DON" 
ies Se toes clone ra 
ee Ratt J - SH or roc 
Yo PRI-iT" 2 a 
peed hi ~ CRSR RIGHT’ 
A PRINTCURE? SS CRSR RIGHT" 
185 ce ee leet" 
pore AP ial 
Z Hi - SHIFT CRS 
9 PRT cece Los ae Bea 
KEY'S” - ~ COMMODORE AND SHIFT 
- PO tie bade “UFPER CASE MoDE* 
5 PRINT" _SEPER CASE MODE" 
2ia PRIMTCHRS% 133 yom * 
MS tee gS gym 
228 PRINTCHRS(194); "FQ" — 
225 PRINT" a rn 
230 PRINTCHRS(1953.0eee 
S25 PRINT Sas , ro ae 
248 FRIWTC! RSCi sss: neon pat) 
245 PRINT" ooo 
258 PRINTCHRS<(1S7);429" 
255 PRINT” =m sureT = 
26 PRINTCHRS(1389; "Fa: Beene 
265 FRINT* sure F 
27G PRINTCHRS< eee te 
275 PRINT" a sHipe ee 
AO 5 2 arid} = 
286 PRINTCHRS( 14a); "FRB" ie 


285 PRINT® comes 
' F u 
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omputers output. 


The function keys have no effect on the c 
e.g. for use as 


They can be checked from within a program, 
controls in a game. 

lower case mode cannot 
CHR3§(n) statement. 


mbols look in upper 
e are shown here. 


Note that delete, upper case mode and 
be used in quotes but can be used ina 


The previous program showed how the sy 
case mode, the symbols in lower case mod 


{8 Printchr${i44)5 "change to black” 
45 print” g- ctrl 1” 

28 print chr$ (5); "change te white” 
25 print” 3 - ctri 2" 


(233; "chanse to red” 


38 Print chrs 

35 print” 4 - ctrl 3" 

4Q printchr# (159), "change to cyan” 
@- ctri 4" 


45 Print" 

5a printchr$6i56)3 "change to Pure le” 
55 print” - ctri 

68 print chr$(3035 "change to sreen 
65 Print” Be- ctrl 
7a print chrf¢3ids "change to blue 
7 Print" eS  etri. 7 

SA printchr#(i5S23 “change to seliow" 
a5 print” i 

am print chré(i833 trex 


35 Print” Z 

tae Pprintchrs(146): “r 

i@> Print" i 

i1@ Prins chré{ZzG75" 

115 Print” ~ 

j22 erintchr$(14835 “insert” 
{25 Print” i 

120 Print chr${i3)3° 

125 Print” 5 - 
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TIS ME PY ane 
ee oa bir as aaa lear screen” 
ie G =~ i 
oe int” =~ shift clrdhome" 
138 Print chr$¢17)3 "curs dz 
S Ant Chrs<lyds "cursor down" 
155 Print" Ho~ crsr gown” 
an hati 
~ ee ee ue * 
6a Print” - snift 

W- shift crsr down’ 
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ABBREVIATIONS 


The following is a list of abbreviations for many of the 
program statements and functions. These may seem strange 
but you will get to know them later on. The abbreviations 
can be typed in instead of the full command, but note that 
some functions include the first bracket (parenthesis) and 
some do not (all functions are followed by a number in 


BR o _ mt} ye - 
17@ Print chr$(293; "cursor risht" 


ira Print” 

18@ Printchr$¢1573; 
{85 Print" 

193 Print chr$C143; 
19o Princ” 

keys" 

288 Printchr$(i42); 
203 Print" 

keys" 

21G Frintchr$(133); 
2135 Print" 

228 Printchr$¢1343; 
225 Print” 

235 Printchr$¢1353; 
oon Pring” 

248 Printchrs¢1363; 
245 Frint” 

259 Frintchre$(i373; 


—d 
=> 


255 Pri | % 


ar =. : % 
2 toh mp eo FBT 
268 Printchres¢i3e3:' 


SYA Tanta de tt 
seo Print 


oe ey 
ark Printcir$< 1335; 
So Peri yt* 

‘Se oe ‘ 

© Printchr$¢ 1485; 
3S, 


eo FP sad i re e 


ac 
cS 
mi 
oO 
EES" 
oo 
= 
20 


ti - crsr rigat” 

"cursor teft” 

ii - shift crsr right” 
“lower case mode” 

- - commodore and shift 


"uPPer case mode" 
- - commodore and shift 


Uf? " 
a ~ fi" 
Bh a de 
#- #3" 
“E55 
B- FS" 


= £7 " 


+ 
m1 + 


1a) 


brackets in a BASIC program). 


Command Abbreviation Command Abbreviation 
AND Ashift N PRINT # PshiftR 
NOT N shift O READ Rshift E 
CLOSE CL shift O RESTORE REshiftS 
CLR Cshift L RETURN RE shift T 
CMD Cshift M RUN R shift U 
CONT CshiftO SAVE Sshift A 
DATA Dshift A STEP ST shift E 
DEF Dshift E STOP Sshift T 
DIM D shift I SYS Sshift Y 
END Eshift N THEN TshiftH 
FOR FshiftO VERIFY VshiftE 
GET GshiftE WAIT W shift A 
GOSUB GOshiftS ABS Ashift B 
GOTO GshiftO ASC AshiftS 
INPUT # Ishift N ATN Ashift T 
LET LshiftE CHR$ CshiftH 
LIST LshiftI EXP E shift X 
LOAD LshiftO FRE FshiftR 
NEXT N shift E LEFT$ LE shift F 
OPEN Oshift P MID$ Mshift I 
POKE PshiftO PEEK P shift E 
PRINT ? RIGHT$ R shift I 
RND Rshift N STR$ ST shift R 
SGN Sshift G TAB( TshiftA 
SIN Sshift I USR U shift S 
SPC( Sshift P VAL Vshift A 
SQR SshiftQ 


Note that PRINT # and INPUT } are not the same as PRINT 
and INPUT. ‘? +’ will not work for PRINT +, 


CHAPTER TWO 
PUTTING THINGS ON 
THE SCREEN 


We pointed out in chapter one, when talkin 

keyboard, that the shift keys (Commodore and cnn 
were the most important ones on the keyboard. We’re 
now going to introduce the third most important one 
RETURN. Whenever you’ re typing on the screen the computer 
will wait until you press RETURN before acting on the material 
you’ve entered. If you have written a program line, the 
computer will ignore that line, and it will sit on the screen, with 


the cu i i i i i 
nie Pb a flashing patiently beside it, until you press 


The same goes for the PRINT 2 you have on the ser i 
you press RETURN the computer will do SWsteatorents 3 
Press RETURN now and you should see the number 2 appear 
below your command followed by ‘READY.’. This is how 
PRINT works. It takes the information which follows the 
command PRINT, with a few exceptions which we’ll learn 
about inamoment, and PRINTs this on the screen, which after 
all is exactly what you’d expect it to do. 


But your computer is more clever than that. If the w 

is followed by asum, it will work it out before a tan andene 
you the result of that sum. Try it now. Enter the following line 

then press RETURN (you’ll find the plus key to the right of the 
number keys on the top row of the keyboard): 
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PRIHT S+3 

You should see the figure 8 appear underneath. The computer 
added 5 and 3 together, as instructed by the plus (+) sign, then 
printed the result on the screen. It can do subtraction, as well 
(clever inventions, these computers). Type in this, and press 
RETURN to see subtraction (and PRINT) at work (the — sign 
is to the right of the + key): E 


PRINT 7-2 


Now, the computer can — of course — do a wide range of 
mathematical tasks, many of them far more sophisticated than 
simple addition and subtraction. But, there is a slight hitch. 
When it comes to multiplication, the computer does not use the 
x sign which you probably used at school. Instead, it uses an 
asterisk (*), and for division, instead of + the computer uses a 
slash sign (/). The asterisk (*) for multiplication is just below 
the — sign and the slash (/) for division is to the left of the right 
hand shift key. 


DOING MORE THAN ONE THING AT ONCE 


The computer is not limited to a single operation in a PRINT 
statement. You can combine as many as you like. Try the next 


one, which combines a multiplication and a division. Type it in, 
then press RETURN to see the computer evaluate it: 


PRINT 5#3/2 


This seems pretty simple. Just type in PRINT, then type in the 
material you want the computer to PRINT, and that’s all there 
is to it. But, it is not as simple as that! Try the next one and see 
what happens: 


PRINT TESTING 


That doesn’t look too good. Instead of the word TESTING 
we’ve got a @ (zero). The computer thought you were referring 
to a variable with the name ‘TESTING’. 
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We won’t try to explain what has happened here, because 
variables are not on the curriculum for this chapter, but it 
means simply that the computer thought you wanted it to print 
a number, which had the name TESTING. Foolish machine. 
Computers may be very, very clever machines, but they need to 
be led by the hand, like a very stupid child and told exactly what 
you want them to do. Give them the right instructions, and they 
will carry them out tirelessly, and perfectly, without an error. 
But give them incorrect instructions, or — even worse — 
confuse them, and they give up in despair, or do something 
quite alien to your intentions. 


STRINGS 


If you want the computer to print the word testing you must put 
quote, or speech marks around the words, like this: 


PRINT "TESTING" 


This time when you press RETURN, the word TESTING will 
appear on the screen. This is worth remembering. When you 
want the computer to print out some words, or a combination 
of words, symbols, spaces and numbers, you need to put quote 
marks around the material you want it to print. Information 
held in this way between quote marks is called a most peculiar 
name in computer circles. The jargon for information enclosed 
in quote marks is string. So, in our example above, the word 
testing, when enclosed by quote marks, is a string. 


OUR FIRST PROGRAM 


Type the following into your computer. Notice that each line 
starts with a number. Type this into the computer, then type in 
PRINT (or type in ? , the abbreviation for PRINT), get the 
opening quote marks from the 2 key (with the shift key) then 
type in the words which follow on the same line, then get the 
closing quote marks from the 2 key again. Then press 
RETURN. Instead of the line being executed, and the writing 
being printed, the computer stores the line and does not act on 
it. This is the first line of your first program. 
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{@ PRINT’SUACK AND JTLL” i 

38 PRINT WENT UP THE H tL. 

3@ PRINT*TO FETCH A PAIL 

2IHT"OF WATER” 
Md a Ha next line (the one starting with 20) “a si 
RETURN once you haveit all in Lae . a pee “ i - vi = = 
i ve the cursor back up to1 

ae tay as you were told in the first chapter. e. = 
if you have typed JCK AND JILL, move the Fags ee beat 
and press shift INST then press A to insert an A. ile oes 
typed O instead of A for example, you could move the ie 
over the O and retype A instead of deleting and ae nia ee 
If you type a new line with the line number of an ee one, wie 
replace the old line. You can also type in a new ine, oe ne 
computer will insert it in the correct pice in your peer tet 
see this in action, type the following line then press pasts 
Then type LIST, this will list your program so you can e 
it: 


25 REM A LINE IN THE MIDDLE 


Now, the program will look like this: 


i@ PRINT "JACK AND JILL" 

29 PRINT "WENT UP THE HILL” 
25 REM A LINE IN THE MIDDLE 
34 PRINT "TO FETCH A PAIL” 
4@ PRINT "OF WATER" 


As you can see, the line numbered 25 has moved itself a the 
right position in the program, between lines 20 and 30. Now, 


RUN the program. 
MAKING REMARKS 


You should find that the new line, line 25, has not nee _ 
difference at all to the running of the program. Why ay ie e 
did the computer decide to ignore line 25? The wor i 
stands for remark and is used within programs when we wa 7 
include information for a human being reading the prog 
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listing. You’ll find REM statements scattered throughout the 
programs in this book. In each and every case the computer 
ignores the REM statements. They are there only for your 
convenience, for the convenience of the programmer, or of 
someone else reading a program. 


Often you’ll use REM statements at the beginning of the 
program, like this one: 


a REM JACK AND JILL POEM 


You may wonder why this would be necessary. After all, it is 
pretty obvious that the computer is holding the ‘Jack and Jill 
poem’, even without the line 5 REM statement. You are right. 
In this case there is little point in adding a title REM statement 
to this program. But have a look at some of the more 
complicated programs a little further on in the book. Without 
REM statements you’d have a pretty difficult time trying to 
work out what the program was supposed to do. 


REM statements are often scattered throughout programs. 
There they serve to remind the programmer what each section is 
supposed to do. Once you’ve been programming a while, you’ll 
be amazed at how many programs you’ll collect in listing form 
which — when you go back to them in a month or so — will 
seem totally obscure. You won’t have a clue how the program 
works, or even more important, what on earth it is, or what it is 


supposed to do. This is where you will find REM statements 
invaluable. 


It is worth getting into good habits early asa programmer. So, I 
Suggest you start right now adding REM statements to 
programs. If you come across programs, or program 
fragments in this book, which you want to keep, and which do 
not have REM statements, get into the habit of using REM 
statements by adding them to these programs. And make sure 
you use them in your original programs. 
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BACK TO PRINT 

Let’s return to the subject of the PRINT igpoenors pore: 
your computer’s memory by typing in the bbigiehor tlie Hd 
computer to act on that command by pressing - ie ee 
computer will reply with the word READY. : fre p 

is now empty and ready and waiting for its next task. 


MORE PRINT STATEMENTS 
Type the following program into your computer and then run 
it: 


{@ PRINT 1-2 

15 PRINT 

20 PRINT 13233 

25 PRIHT . 

30 PRINT "VIC" 

35 PRINT : 

44 PRINT "23+34=":23+24 

45 PRINT 

Sa PRINT 282 

55 PRINT 

6&9 PRINT S15 

65 PRINT ‘ 
73 PRINT "THE ANSWER 1$";23-7-'6 


You should get something like this on the screen: 


i 2 
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243 


%. 


THE ANSWER IS 21.9333323 


Now there is a lot we can learn from this program. 


see . in the ra and Jill’ program, the computer 
program line by line, starti 
numbered one and proceeding through potiag Heats 
sae until it runs out of numbers, when it stops. (You'll 
eres that this orderly progression of line numbers does 
not always apply, as there are ways of making the comput 
execute parts of a program out of strict numerical seer: it 


for the time being, it i 
g, it is best to assume tha i 
be executed in order). pi og 


Look first to line 19 of your program. You can see that there 
se ane sla you will find on the bottom row of the 
rd). This has the effect of getting the com 
: ; ute 
She We first number (1) on the left hand side of ae a. 
nd the second number (2) at about the middle. When you 
ae comma like this to divide the things which follow a 
hp nfs statement (but mot when the comma is in a string 
eae kent vay f it divides the screen into two, 

which follows the comma starting at th 
available half of the screen. If the line had read PRINT 13% 
- aan: es oe at the start of the first line the 2 
e second half of the first line and. 
underneath the one, because this was the ‘next ye 


screen’. If you’re not too clear 
wh F : 
yourself. at we mean by this, try it 


The second line of the program (line 15) is j 

PRINT with nothing following it. This Sk ue a ne 
can see in the printout (and on your television screen) of 
putting a blank line between those lines which do includ 

material after the word PRINT. (The same comment li : 
to lines 25, 35, 45, 55 and 65). gee 
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Line 20 has three numbers (1, 2 and 3) separated not by commas 
(as in line 10) but by semicolons. Instead of separating the 
output of the numbers as the comma did, you’ll see that it 
causes them to be printed with two spaces between each one. 
You use the semicolon (;) when you want some printed material 
to follow other printed material without a break. 


Line 30 is the word VIC and this is a......----- If you 
mentally said string when you came to those dots, then you’re 
learning well. This word is a string, in computer terms, because 
it is enclosed within quote marks. 


Line 49 is rather interesting. For the first time we have included 
numbers and a symbol (=) within a string. As you can see, the 
computer prints exactly what is within the quote marks, but 
works out the result of the calculation for the material outside 
the quote marks, giving — in this case — the result of adding 23 
to 34. Try to remember that the computer considers everything 
within quote marks as words, even if it is made up from 
numbers, symbols, or even just spaces, or any combination of 
them, while it counts everything that is not within quote marks 
ina PRINT statement as a number. This is why it got so upset 
earlier when we told it to print TESTING without putting the 
word in quote marks. It looked for a number which was called 
TESTING, and because it could not find one (as we had not 
told the computer to let TESTING equal some numerical 
value), so it assumed it was equal to zero. So line 49 treats the 
first part, within quote marks, asa string, and the second part, 
outside quote marks, as numerical information which it 


processed. 


In line 50 we see the asterisk (*) used to represent multiplication 
and the computer quite reasonably works out what 2 times 3 is 
and prints the answer 6. In line 69 we come across a new, and 
strange sign, a little upward arrow. This means ‘raise to the 
power’ so line 69 means PRINT 3°. Now, it is pretty difficult 
for a computer to print a number half way up the mast of 
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another number, so we use the upward arrow to remind you (by 
pointing upward) that it really means ‘print the second number 
up in the air’. You probably know that 7? is read as ‘seven 
squared’. It means to raise seven to the second power. In a 
similar way, 3° means raise three to the fifth power which is 
exactly what the computer does in line 69. 


The final line of this program combines a string (‘the answer 
is’) with numerical information (23+5-—7/6). You can see 
that, as expected, the computer works out the sum before 
printing the answer, and prints the string exactly as it is. 


Numbers are printed with a space following them where as 
strings are not. Positive numbers have a space before them as 
well, but this is replaced by a ‘ —’ for negative numbers. This is 
why there are two spaces between two positive numbers printed 
by the computer: the trailing space of the first number and the 
preceding space of the second. Strings are printed with no 
spaces between them unless they contain spaces themselves. 


That brings us to the end of the second chapter of the book. 
We’re sure you’ ll be pleased at how much you’ ve learned so far, 
and are looking ferward to continuing your learning. But now 
you’ ve earned a break. So take that break, and then come back 
to the book to tackle the third chapter. 


CHAPTER THREE 
RINGING THE 
CHANGES 


It’s all very well getting things onto ce ee wee be ee 
i t from time 
learnt to do in the last chapter, bu \ 
i ted material off the screen 
discover we need to be able to get prin 
during a program, to make way for more PRINT statements. 
We do this with a control code, number 147. 


CLEAR THE SCREEN 

Enter the following program into your comp 
You'll find the dollar sign after the A in line 2 
You get the dollar sign by holding down the s 
pressing the four key. 


uter and run it. 
@ on the 4 key. 
hift key while 


1@ PRINT "TESTINS"' 
2@ INPUT At 
38 PRINT CHRE#<147> 


When you run the program, you'll see the word TESTING 
appear on the screen, more or less as you’d expect: 


Wear Tit 
{ EST ib 


However, underneath this you'll see a question mark and the 
cursor blinking merrily to itself: 
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? £ 


This is an input prompt. An input prompt, which appears in a 
program when the computer hits the word INPUT, means the 
computer is waiting for you to enter something else into the 
computer, or just to press RETURN. You’ll recall that we 
spoke earlier about strings and about how they were anything 
which was enclosed in quote marks. The computer signals that 
it is talking about a string by using the dollar sign. So line 29 is 
waiting for a string called A$ to be input by you. 


Anyway, when you respond to the input prompt by pressi 
RETURN, you’ll see the screen we ae TESTING 
disappears. Where did it go? We pointed out that the computer 
works through a program in line order. Firstly, with this 
program, it printed TESTING on the screen, then progressed 
to line 29, where it waited for an input (or for you to press 
RETURN). Once you’d done this in line 26, it moved along to 
line 39 where it found PRINT CHR$(147). The instruction was 
to clear the screen, so the computer did just that, and the screen 
went clear. 


Run the program a few more times, until you’ve got a pretty 
good idea of what is happening, and you’ve followed through 
— in your mind — the sequence of steps the computer is 
executing. 


DOING IT AUTOMATICALLY 


Instead of waiting for you to press RETURN, you can write a 
program which clears the screen automatically, as our next 
example demonstrates. Enter this next program into your 
computer, press RUN, then RETURN, and sit back for the 
Amazing Flashing Word demonstration. 
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1@ PRINT "AUTOTESTING” 
26 FOR A=1 TO 108 

3@ NEXT A 

4@ PRIHT CHRS$¢147> 

58 FOR A=1 TO 128 

68 Neat A 

7@ RUN 


Run this program, and you’ll see the word AUTOTESTING 
alternately flashing off and on at the top of the screen. What is 
happening here? Let’s look at the program, and go through it 
line by line. Firstly, as you know, line 19 prints 
AUTOTESTING at the top of the screen. Next, the computer 
comes to line 20, where it meets the word FOR. We'll be 
learning about FOR/NEXT loops (as they are called) in detail 
in a later chapter, but all you need to know here is that the 
computer uses FOR/ NEXT loops for counting. In this 
program lines 20 and 38 (for FOR is in line 20, the NEXT inline 
3@) tell the computer to count from one to 19, before moving 
on. As you can see, it does this counting pretty quickly. 


So, it waits for amoment while counting from one to 100. Then 
it comes to line 49, which tells the computer to clear the screen. 
It does this, and AUTOTESTING disappears from the screen. 
The computer then encounters, in lines 5@ and 6@, another 
FOR/NEXT loop, so waits a while as it counts from one to 100 
again. Continuing on in sequence, it comes to line 70, where it 
finds the word RUN. Now, as you know, you get the computer 
to execute a program by pressing RUN, followed by RETURN. 
But RUN is a command, so there is no reason why you cannot 
use it within a program, as we have in line 70 of this program. 
When the computer comes to line 79, it obeys the command, 
and RUNs the program again, so that it goes through the 
AUTOTESTING printing, counting to 100, clearing the 
screen, counting to 100 again, and then hitting RUN so that the 
whole dance starts over. 
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EDITING 


As was discussed in chapter one, your VIC is provided with a 
screen editor which makes it very simple to change the contents 
of lines within a program. NEW the current program, then 
enter the following program into your computer. Do not type 
R ge . We want to explain something about the program before 
you do: 


{@ REM AN EDIT TEST 
2@ PRINT "TEST AGAIN" 
36 PRINT "AND AGAIN” 


As always, the cursor is flashing where the computer expects its 
next input. Move the cursor around the screen using the cursor 
control keys as described in chapter one. Note that if you keep 
them held down, they repeat, this is also true of the insert and 
delete keys and the space bar. NOTE: you can make all the keys 
repeat with the command POKE 659,255. You can return to 
normal by typing POKE 659,90. Remember to press RETURN 
in each case after each line. If you clear the screen, you can 
obtain a listing of your program with the command LIST 
(followed by RETURN of course). Using the control keys 
move the cursor to the beginning of line 18. You can now 
change, or edit, this line. Using the cursor right key, move the 
cursor along line 19, noticing how the symbols underneath it 
flash between normal and reverse mode. It should look 
something like: 


16 REM AN EWIT TEST 


Move the cursor right to the end of the line and use the DELete 
key to erase all the letters after the word REM. Nowtype in new 
words, so the line reads: 


1@ REM SH EDIT CHANGE 


When you have done this, press RETURN as if you had just 
finished entering a standard line of program. Then move the 
cursor down to below the last line of the program. Type LIST 
and you should see the program with line 19 changed. Before 
you read on, spend some time changing lines 19, 26 and 30, 
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until you’re completely familiar with the use of the cursor 
control keys. 


GETTING THE PROGRAM BACK 


You’ll notice that, after you’re RUN a program, the listing of 
the program may have scrolled off the top of the screen. Scroll 
is a term used to describe what happens when the computer 
prints past the bottom line of the screen and the display moves 
up a line to compensate for this. This results in the loss of the 
top line of the display. As was mentioned before, typing LIST 
will give you a listing of your program. Try it now with the 
program you have in your computer. 


There is no reason why you must LIST from the start of a 
program. This is a very useful feature when you have a program 
which is so long that not all of it will fit on the screen at once. 
Type in LIST 26 and press RETURN. You'll see line 20 appear 
on the screen. You may also type in LIST 20-, this lists from 
line 20 onwards; LIST — 29, this lists up to line 20; and LIST 
10—20, this lists all the lines between 10 and 20. Of course you 
can use any line numbers with list, so long as they are not 
negative or too big. If the line number specified after the word 
LIST does not exist, the computer will go to the next available 
number, and LIST from there. 


USING THE PRINTER 

When using the printer, you must make sure it is switched on 
otherwise you might loose your program altogether from the 
VIC and have to switch off and on again. First of all, after 
switching your printer on, you must open a file to the printer. 
This is done with the command: OPEN 1 ,4,0 the first number is 
known as the logical file number — it can be any number 
between 1 and 255, but you must always use the same number 
when you address the printer. The second number is the device 
number and can be either 4 or 5, depending on the setting of the 
switch at the back of the printer. The third number is known as 
the secondary address and can be either 9 or 7. When 9, printing 
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occurs in normal mode, and when 7, printing occurs in lower 
case mode. If you simply want to print something on the 
printer, you can use the command: PRINT #1, data. The 
number is the same number as the logical file number in the 
open command. Anything after the comma, is printed on the 
printer instead of the screen as in a normal PRINT statement. 
Note that control codes do not work on the printer, it has its 
own special control codes which are listed in the printer 
manual. So a command like: PRINT #1, ““HALLO”’ would 
print ‘HALLO’ to the printer (assuming a file has already been 
opened). If you want to list your program, or simply get output 
on the printer from a normal PRINT command, you can use 
the command: CMD 1. This sends all subsequent output from 
the computer to the printer instead of the screen. The number 
is, once again, the logical file number. From now on, any lists 
or prints should go to the printer. If you want to bring output 
back to the screen use the PRINT # with the logical file number 
and no data. After this, only data printed using the PRINT + 
command will be sent to the printer. When you are ready to 
stop printing altogether, you must close the file with the 
command: CLOSE 1. This sets the computer as if you had 
never opened the file. The number is the logical file number 
used in all previous work. It is a good idea to type PRINT #1 
without data before closing the file. Note that the number is, 
yet again, the infamous logical file number. The next example 
will open the file whose number is 2 and demonstrate what you 
have learnt: 


16 REM PRINTER 

2@ OPEN 2.4.4 

3@ PRINT#1."HI THERE, I°M VIC" 

4@ PRINT#L,CHRE(13> 

v8 PRINT#1."THIS IS THE ¥I0Q PRINTER” 
a CMDS 

‘a PRINT "THIS 15 FROM A NORMAL* 
PRIAT STATEMENT" 

PRINT#2."BUT THiS IS FROM A" 
PRIHT#2. "PRINT# STATEMENT” 


bem 81) FQ =) IF 
DCR Sy 


r 


k 


SY 
) 
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118 PRINT#2 
120 CLOSE 2 


HI THERE, I’M VIC 


THIS IS THE VIC PRINTER 


THIS IS FROM A HORMAL 
STATEMENT 

BUT THIS IS FROM A 
PRINT# STATEMENT 


CHAPTER FOUR 
DESCENT INTO 
CHAOS 


It’s time now to start developing some real programs. You’ll 
notice that from this point on in the book there are some rather 
lengthy programs. Many of them will contain words from the 
BASIC programming language which have not been explained. 
This is because, as programs become more complex (and far 
more satisfying to run) it becomes more and more difficult to 
keep programming words which have not been explained out of 
the program. However, it is not a major problem. 


Weare working methodically through the commands available 
onthe computer, and in due course, all of them will be covered. 
When you come across a word in a program which seems 
unfamiliar, just enter it into the program. You’ll find that 
you’ll soon start picking up the meaning of words which have 
not been explained, as you see how they are used within a 
program. So, if you find a new word, don’t worry. The 
programs will work perfectly without you knowing what the 
word is, and investigating the listing after you’ve seen the 


program running is likely to allow you to work out what it 
means anyway. 


RANDOM EVENTS 


In the world of nature, as opposed to the manufactured world 
of man, randomness appears to be at the heart of many events. 
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The number of birds visible in the sky at any one time, fy 
fact that it rained yesterday and may rain again ie Se ie 
number of trees growing on one side of a partic : 
mountain, all appear to be somewhat random. Of course, - 
can predict with some degree of certainty whether or no 
will rain, but the success of our predictions appears to 
somewhat random as well. 


in i j it lands heads or 
hen you toss a coin in the air, whether it 
po spaails on chance. The same holds true when pe 
throw a six-sided die down onto the table. Whether it = s 
with the one, the three or the six showing depends on random 
factors. 


omputer has the ability to generate random numbers 
Sih ae lee useful for getting the computer to siege i 
random events of the real world. The word to do t ie ‘ 
RND(1). The number in the brackets can be wee Pe * 
number but there must be a number there. It is usually @ or 1. 


GENERATING RANDOM NUMBERS : 

: ’ ae a 
We'll start by using RND just as it 1s to create some rando 
Dba. Enter the following program, and run it for a 
while: 
1@ PRINT RNDC1> 
26 GOTO 18 


When you do, you'll see a list of numbers like these appear 
on the screen: 


mo on a 


LO CW fa 
fb “I 
oo oN 


WO OO 1 
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« 128392889 
«97293994 
oP 6433747 
- 417938108 
8259277551 
» 869331895 
» 967128873 
» F26H80658 
» 564234364 
» 7? B348712 


As you can see, RND generates numbers randomly between 
zero and one. If you leave it running, it will go on and on 


apparently forever, writing up new 
> Ta 
screen. Pp ndom numbers on the 


Now random numbers between zero and one are of limited 
interest if we want to generate the numbers and get them to 
stand for something else. For example, if we could generate 1’s 
and 2’s randomly, we could call the 1’s heads and the 2’s fails 
and use the computer as a kind of electronic ‘coin’. If we could 
get it to produce whole numbers between one and six, we could 
use the computer as an imitation six-sided die. : 


Fortunately, there is a way to do this. Enter the next program 
and run it. You’ll get the parenthesis on the 8 and 9 keys (and 
you get them by holding down the SHIFT key while pressing 
the 8 and 9). There is a single space between the quote marks at 


the end of li j i 
oe ine 19. You get the space just by pressing the space 


INTCRHDC1¥G+195" " 
20 GOTO 1a 


When you run this program 3 i 
, you'll get a series of 
(chosen at random between 1 and 6) like these: et 
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gq 4-2: tee 2 
yey Bee S's 
{ s-6 S554 
ae ES eS Se 


Even though we can create vast series of numbers between 1 
and 6 with a program like this, it is not particularly interesting. 
And, if you ran the program over and over again, you might 
find that the sequence of numbers may start to become a little 
familiar. The random numbers may stop looking so random. 


This is because the computer does not really generate random 
numbers, but only looks as if it is doing so. Inside its electronic 
head, the computer holds a long, long list of numbers, which it 
prints in order when asked for random numbers. The list is so 
long, it is almost impossible to see any pattern or repetition in 
it. However, this is often not quite good enough. Some 
programs demand numbers which are as close as possible to 
genuinely random. 


SEEDING THE RANDOM NUMBER 
GENERATOR 
Fortunately, we can do this on our computer. This is done by 
putting a negative number in between the brackets in the RND 
statement. What it does is choose a starting position 
somewhere in this list, instead of starting at the beginning of the 
list. There is a number stored in the computer called TI. This is 
the time the computer has been on in 6@ths of a second. Thus 
typing LET A = RND(—TI) will choose a starting position in 
the list unknown to anyone. We can seed the random number 
generator in three ways: 
1 Just enter LET A = RND(— TI) before you run a 
program, which will seed the random number generator 
(by ‘seed’ we mean start it off inarandom position within 
the list). 
2 Include the above line somewhere in a program 
(preferably at the beginning), so it occurs every time you 
run a program. 
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3 Include itwithinaprogram, and gettheprogramtoask fora 
seed’ . Aseed, in this case, is just anumber the user enters 
Eachtimeyouenterthesameseed, you’Ilgetthesameresult 
Becarefultomaketheseed negativeifitis positiveandifit is 
too small then get the program to ask for another seed. The 


lines might look something li i i 
g like this (the stat 
explained later): icles 


n 


@ INPUT "SEED";SE:IF SE>@ THEN SE=-SE 
59 SE=RNDCSE> 


Now this possibly seems confusing. But, don’t worry, it will 


become clear, and the next tw ; 
F : O programs are 
make it clear. 8 designed to help 


FAST FOOD CRAZINESS 


Enter and run the next program, which makes an interestin 
use of the computer’s ability to generate random numbers As 
you can see, it creates a scene where you have turned up ata fast 
food outlet, desperate for something to eat, and you’ve decided 
to let random number generator pick your food for you: 


1@ REM FAST FOOD 
3@ LET A=INTCRNDC1)¥4)+1 
40 PRIWT"VYOU’VE ORDERED” 


S@ IF A=1 THEN PRINT"A HAMBURGER WITH THe LOT” 


60 IF A=2 THEN PRINT"A LARGE FRENCH 
FRIES" 
8 IF Ad THEN PRINT'A SERVE OF RIBS” 


8@ IF A=4 THEN PRINT"TWO HOT DOGS WITH KETCHUP’ 


$@ PRINT 
168 GOTO39 


When you run this, you’ll get something li is li 
bates g ing like this list of food on 


| 
| 
| 
| 
| 
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YOUVE ORDERED 
TWO HOT DOGS WITH KETCHUP 


YOUVE ORDERED 
THO HOT DOGS WITH KETCHUP 


YOUVE ORDERED 
a LARGE FRENCH FRIES 


YOUVE ORDERED 
A SERVE OF RIBS 


Notice how, as was mentioned previously, the screen scrolls (or 
rolls upwards) when the writing gets to the bottom of the 
screen. You may slow this ‘scrolling’ down by keeping a finger 
on the CTRL key at the far left of the keyboard while the 
program is running. To stop the program use the key marked 
RUN/STOP just below the CTRL key. The program will stop 
and the computer will say something like ‘BREAK IN LINE 
39’. Incidentally you can also stop the program by keeping one 
finger on the RUN/ STOP key and another on the key marked 
RESTORE at the right hand side of the keyboard. This restores 
your VIC without losing your program. Notice how the 
program sets the letter A to the value of the random number in 
line 30. In this case, the letter A is standing for a number. It is 
called a variable, or, because it stands for a number (as opposed 
to standing for a word, or a string) it is called a numeric 
yariable. In computer jargon, we say that, (in line 3@) the 
computer has assigned the value of the random number to the 
variable A. And, as you can see in line 50, 6, 70 and 80, the 
value assigned to A determines which food order you place. 
Read this over if it seems incomprehensible the first time. 


PLANTING A SEED 

Now, we are going to modify the program, using the cursor 
control keys which we discussed earlier. Change your original 
program, so it looks like this, modifying some lines and adding 
others. You’ll find the single apostrophe (*) on the 7 key: 
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1@ REM FAST FOOD 

15 PRINT "ENTER RANDOMIZE" 

28 INPUT "SEED";SA:IF A>@ THEN A=-FAi 
25 A=RNDCAD 

3@ LET R=INTCRNDC 1 e441 > 

35 PRINT "XQ"; A 

4G PRINT “YOUVE ORDERED" 


S@ IF.A=1 THEN PRINT"A HAMBURGER WITH THE LOT” 


6@ IF A=2 THEN PRINT"A LARGE FRENCH FRIES" 
7@ IF Ae@ THEN PRINT"A SERVE OF RIBS" 


IF. 
9@ FOR I=1 TO 18@:NEAT 
{88 GOTO 2a 


When you run this, the computer will stop and the words 
ENTER RANDOMIZE SEED will appear on the screen. This 
is an input prompt. When you place words in quote marks after 
the word INPUT, they appear on the screen to tell you what 
kind of input the computer expects. In this case, because the 
letter A after the semicolon at the end of line 26 does not have 
a dollar sign after it (that is, it is not a string), the computer is 
expecting you to enter a number. You can enter any number 
you like, and you’II soon discover which numbers to enter to get 
the food you want. 


The display on the screen looks like this when the program is 
running, with the random number generated in line 3 printed 
by line 35. 


ENTER RANDOMIZE 


SEED 4 

YOUVE ORDERED 

TWO HOT BOGS WITH KETCHUP 
ere) 3 


YOU’VE ORDERED 
A HAMBURGER Wi 


SEET 2 


tT} 
Ad 
=. 
a4 
x 
nt 
15 
ad 
Se 
8] 
pea 


A=4 THEN PRINT*TWO HOT DOGS WITH KETCHUP" 
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YOUVE ORDERED 
A LARGE FRENCH FRIES 
SEED 2 
You-VE ORDERE 
A LARGE FRENC 
SEED 4 
YOUVE ORDERED 


ED 
Hi 


FRIES 


Notice how easy it was to modify the program. Have a look at 
line 90. This is called a LOOP and will be discussed in greater 
depth in the next chapter. All it does is count from the first 
number to the second, producing a delay. The bigger the 
second number the longer the delay. This is very useful for 


pacing the running of a program to suit you. 


CHAPTER FIVE 
ROUND AND ROUND 
WE GO 


In this chapter we’ll be introducing a very useful part of your 
programming vocabulary — FOR/NEXT loops. You’ll recall 
that we mentioned FOR/NEXT loops when demonstrating 
clearing the screen. There, a loop was used to add a delay after 


the word was printed on the screen before the screen was 
cleared. 


A FOR/NEXT loop is pretty simple. It has the form of two 
lines in the program, the first like this: 


FOR A=1 TO 26 


And the second as follows: 


NEXT A 


The control variable, the letter after FOR and after NEXT 
must be the same. 


As aFOR/NEXT loop runs, the computer counts from the first 
number up to the second, as these two examples will show: 


1@ FOR R=1 TO 288 
2@ PRINT A; 
3@ NEXT A 


When you run it, this appears on the screen: 


mM 
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Here’s another version: 


19 FOR A=765 TO 798i 
2@ PRINT A; 
38 NEXT A 


And this is the result of running it: 
765 766 767 7 
69 778 771 772 
774 745 76 7? 
778 #779 «73a 78) 


STEPPING OUT 


i ted up in 
In the two previous examples, the computer has coun 
ones, but there is no reason why it should do so. The word 
STEP can be used after the FOR part of the first line as 
follows: 


14 FOR A=1a@ TO 1@9 STEP 14 
2@ PRINT A: 
36 HEAT A 


When you run this program, you'll discover it_ counts 
(probably as you expected) in steps of 10, producing this 


result: 19 20 30 40 «50 6 
8 70a 98 94 188 


STEPPING DOWN 

The STEP does not have to be positive. Your computer is just 
as happy counting backwards, using a negative step size: 

1@ FOR A=ie8a TO 19 STEP -ia 

28 PRINT A; 

38 HEXT R 


This is what the program output looks like: 
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5H 64606=C«S sd 
MAKING A NEST 
It is possible to place one or more FOR/NEXT loops within 


each other. This is called nesting loops.In the next example, the 
B loop is nested inside the A loop: 


1@ FOR A=1 TO 3 

2@ FOR B=1 10 2 

30 PRINT As "TIMES"; Bs "1S" ARB 
49 WEAT B 

S@ NEAT A 


The nested programs produce this result: 


TIMES 
TIMES : 


You must be very careful to ensure that the first loop started is 
the /ast loop finished. That is, if FOR A ... was the first loop 
you mentioned in the program, the last NEXT must be NEXT 
A. 


1 Times 1-15. 
1 Times 2 15.2 
2 TIMES 1 15 2 
2 TIMES 2 IS 4 
3 i 3 
3 2 6 


Here’s what can happen if you get them out of order (the Bloop 
ends after, rather than before, the A loop): 


1@ FOR A=i TG 3 


28 FOR B=1 10 

34 PRINT Ai "TIMES"; Bs "iS" 7 ARE 

48 NEAT A 

Sa HEAT B 
i TIMES 2 tad 
2 TIMES 1 iS 
3 TitedS 24153 


CHAPTER FIVE 37 


PREXT WITHOUT FOR 
ERROR IN 32 


MULTIPLICATION TABLES 


You can use nested loops to get the computer to print out the 
multiplication tables, from one times one right up to twelve 
times twelve, like this: 


14 FOR A=1 TO i2 
26 FOR B=1 TO i2 
34 PRINT A; "TIMES": B; "IS"; ARB 


46 HEXT B 

S8 MEXT A 

Here’s part of the output: 
L THES 2 23° 1 
{. TIMES 2-15 2 
Ll iites.6 15 3 
1 TIMES 4 IS 4 
i: TIMES. S155 
1 TIMES 6 15 6 
t TIMES 7°15 ¥¢ 
1 TIMES § 15 8 
Y Tires 9 is 9 
1 TIMES i@ IS if 


ros 


TIMES i305 4% 


There is no reason why both loops should be travelling in the 
same direction (that is, why both should be counting upwards), 
as this variation on the times table program demonstrates: 


if FOR A=1 TO 12 

26 FOR B=i2 10 1 STEP ~1 

S@ PRINT A; "TIMES"; B: "1S"; ARB 
44 NEAT B 

a6 NEXT A 


Here’s part of the output of that program: 
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1 TIMES 12 1S 12 5 POKES6879,138 = c«nr? 

{ TIMES 11 IS 11 19 PRINTCHRS<( 1473; TRaoSseaEaHsnedei ack” 

i TIMES 18 IS 10 26 PRINT 

1 TIMES 9 IS 9 3 PRINT 

{ TIMES 8 IS 9 4 PRINT" CODEBREAKER" 

1 TIMES 7 IS 7 45 PRINT” BY A.J.B. AND T.S." 

1 TIMES 6 18 6 EA PRIHT * seeemceamaenemmnesomnens. nemstromecsmstnsrascs 

i TIMES 5 18 5 6 PRINT 

i TIMES 4 18 4 78 PRINT" WHEN YOU ARE TOLD TO"; 

{ TIMES 3 15 3 6@ PRINT"DO $0, ENTER A 4-DIGIT"; 

1 TIMES 2 1S 2 99 PRIHT*HLUMRER AND THEN PRESS”; 

{82 PRINT"RETURH, DIGITS CAN BE"; 

CRACKING THE CODE 119 PRINT*REPEATED YOU HAVE 8”; 


It’s time for our first real program. In this program which uses {2@ PRINT" GOES TG BREAK THE "; 
several FOR/NEXT loops, CODEBREAKER, the computer 138 PR INT" DIFFICI LT CODE." 

thinks of a four-digit number (like 5462) and you have eight 2 an PRINT 3 PRINT Z ¥ ‘ 4s * ‘eek JRO 
guesses in which to work out what the code is. In this program, aaa So ss eee i Si a 0) a 
written by Adam Bennett and Tim Summers, you not only have 145 Vein = ‘BEBEES 

to work out the four numbers the computer has chosen, but i4? IFTI<420THENI47 

also determine the order they are in. iSH PRINTCHRSE<( 147) 

168 DIMB<45 

ive DIMoC4S> 

LETH=8 

FORA=1TO4 

LETESAS=IHTCLGeRHDC LS > 


After each guess, the computer will tell you how near you are to 
the final solution. A ‘white’ is the right digit in the wrong place 
in the code, a ‘black’ is the right number in the right place. 
You’ll see that you are aiming to get four blacks. When you 


ise 


have, you have cracked the code. Digits may be repeated within 
the four-number code. Enter the program, and play a few 
rounds against the computer. Then, return to the book for a 
discussion on it, which will highlight the role played by the 
FOR/NEXT loops. (Note that the word BLACK in line 380 is 
printed in black and reversed by the use of control codes. These 
are used throughout the program. Note also the PRINT 
statements with nothing following them (e.g. line 20). These 
make the computer miss a line, they also make the computer 
print in normal mode if it was in reverse before. The practical 
upshot of all this is that there is no need, in this instance, fora 
REVERSE OFF control code. 


wy CT Ba Te tes 
Wo 03) 2) Sa i ee es a iS) a 


G3 ta feo Pha 2 Tso feo Pe BO PO Po Te es ee 


bee (4D 0 


HERTR 

FORC={TOe 

PRINT 'MENHTER GUES HUMBER “30: IHPUTX 
TFHRESSOSTHERGOTOL38 

PRINT 

LFIMT CHL AGS =BTHEMP RINT A": 

PRINTX: * w; 

pial (271908) 

LUx-LBOGHEF ) ALB? 

(4-1 {RRREP~ TABS La 
{Q@A#EP~1SAe0-1AsR> 


i 
HT , 
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$23 DCL3=P 
338 1¢2=0 


34@ DCSs=k 638 PRINT 
B58 De4o=8 635 PRINT"'#YQU GOT THE ANSWER IN ";C;" GOES" 
999 END 


36@ FORE=1TO4 
S78 [FDCESRCE THEMGOTO428 
384 PRINT" @aBLACK"; 


Here’s what the screen looks like after one round. 


398 BCEX=BCE3+12 1iii iS@ytex 
4@8 DCEI=DCE3+22 ENTER GUESS NUMBER 6 
410 H=H+i 

429 HEXTE : 1222 iserrez 

438 IFH=4THENS20 ENTER GUESS HUMBER 7 
44@ FORF=1TO4 

450 D=D¢F> 1333 SExtax 

46@ FORG=iTO4 ENTER GUESS HUMBER 8 
478 IFDCPBCGITHENSIB 

484 PRINT" gaHITE"; 1444  SHseiegerNax 


4#9@ BCG)=B(G)+1a 
saa GOTOS22 


314 HEAT WOU DIDN’T GET IT... 

a 528 HEXTF THE ANSWER IS 1974 

fe 334 FORG=1T04 

: 549 [FRCGISLaTHENSS@ We’ll now go through the program line by line, a practice we’ll 
S50 BCG=BLG2~18 be following for several of the programs in this book. If you 
BGA HEXTS don’t want to read the detailed explanation now (and there may 
578 H=a be parts of it which are a bit difficult to understand at your 
Soa PRI NT present stage), by all means skip over the explanation and then 
Baa HERTC come back to it later when you know a little more. 
ref t, 
se = Be Lines 19 and 14@ print a number of asterisks to rule off the title 
sof agen = doh oy : and instructions, with blank lines printed by lines 20, 36, 60 and 
Gee PRINT “eYOU DIDN’T GET IT..." 250. After the title is printed by line 49, it is ‘underlined’ by a 
618 PRINT'THE ANSWER IS "; series of graphics available from the I key. You’ll probably 
615 H=BCLHLBRATE CDI BASES eI BSR AS remember from chapter one how to get graphics. All you do is 
Gis PRINTH press the I key in conjunction withthe Commodore shift. It 
a2eR poOTMIeSS might be wise to type POKE 659,255 followed by RETURN 


before entering the program. This allows the keys to repeat. 
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Line 145 resets the VICs string time variable which counts in 
hours, minutes and seconds. Line 147 waits until the numeric 
time variable which counts in 60ths of a second is over 600 (i.e. 
10 seconds). Two arrays are dimensioned in lines 16@ and 179. 
We get to arrays in a later chapter. For now, all you need to 
know is that by saying DIM B(4) you tell the computer you want 
to create a /ist of objects, called B, in which the first item can be 
referred to as B(1), the second as B(2), and so on. These two 
arrays are used for storing the numbers picked by the 
computer, and for your guess. 


H is a numeric variable (we’ve mentioned numeric variables 
before) which is set equal to zero in line 189. In line 416, one is 
added to the value of H each time a black is found, so that if H 
equals four, the computer knows all the digits have been 
guessed and goes to the routine from line 63@ to print up the 
congratulations. 


The lines from 198 to 219 work out the number which you will 
have to try and guess. Line 26@ uses the RND function we’ve 
talked about to get four random numbers between zero and 
nine, and stores one each in the elements of the B array. Note 
that the first FOR/NEXT loop of our program appears here. 
The A in line 198 equals one the first time the loop is passed 
through, two the second time, and so on, so that the A in line 
200 changes as well. 


Our next FOR/NEXT loop, which uses C, starts in the next 
line. It counts from one to eight, to give you eight guesses. Line 
238 accepts your guess, using the words ‘ENTER GUESS 
NUMBER 1’ as an input prompt. The numeric variable X is set 
equal to your guess, and line 249 checks to make sure you have 
not entered a five-digit number. If you have (if X is greater than 
9999) then the program goes back to line 23@ to accept another 
guess. 


The next section of the program, right through to line 580, 
works out how well you’ve done, using a number of 
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FOR/NEXT loops (368 to 420, 449 to 520, 460 to 519 and 530 
to 568). Line 59 sends the program back to the line after the 
original FOR C=... to go through the loop again. If the C 
loop has been run through eight times, then the program does 
not go back to line 239, but ‘falls through’ line 599 to tell you 
that you have not guessed the code in time, and to tell you what 
it is. Line 619 prints out the code. 


If you do manage to guess it, so that H equals four in line 439, 
then the program jumps to line 630 to print out the 
congratulatory message. 


PACKING ’EM IN 


You can save quite a bit of space in the program (although it 
doesn’t always make it easier to work out what is going on 
within the program, or to pick up errors) by using 
multi-statement lines. With a multi-statement line, you put 
more than one statement to each line number. Each statement 
on the same line must be separated by a colon (:). 


Here is a slightly condensed version of CODEBREAKER 
produced by putting more than one statement on a line in 
places. Compare the two listings, and see how a little bit of 
space can be saved with multi-statement lines. Do not put a 
second statement in a line after the word IF (such as line 439). 
The reason for this will be outlined in the next chapter. 


= POKES6879, 139 
18 PRINTCHRE (147 >; RRR RSPR ES 
SSR 7 


2@ PRINT‘ PRINT 


- AQP ear me a = T.IT aed 
4@ PRINT" CODERRERKER": PRINT" EY 


ARE TOLD TO”; 
R A 4-LIGIT"; 


44 


3 
i 


a 
G8 


HES 
228 
238 


UTA 


246° 


258 
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PRINT“HUMBER AND THEN PRESS", 
PRINT"RETURH. DIGITS CAN BE", 
PRINT"REPERTED YOU HAVE 8"; 
PRIHT" GOES TO BREAK THe *; 
PRINT"DIFFICULT COTE” 

PRINT ‘PRINT "SRR SESS REE ERRRE REESE 


TIi$="@82008" 


¢ IFTI<42@THEH147 


PRINTCHRE< 147) 

DIMBS43,.0¢49:LET H=2: 
FORAS1TO04:LETBCRI=INT CIG#ERNDS 13>: 
‘ek 

FORC=1 702 

PRINT"RENTER GUESS NUMBER "50: THP 


TFROS999STHENGOTOZ36 

PRINT 

IFINT (X10 3=GTHENPRINT*@"; 
PRINTAS" "5 

P=IHT CH 1880) 

G=INT< <CX-1GGG#P > 712) 

R= INT ((X-1G02#P-1G2%G) 7185 
S=(X—-1BGR#P—-1O#O—-1B#RD 

DCL d=P DC 250: DCs SR 164555 
FORE=1T04 

TFOCEDCOBCED THENGOTOS22 
PRINT" SBBLACK" 
BCES=BCcI+iG 


BLES=DCE I +28 


x3 


iQ H=H+4 


HEATE 
IFH=47HEHS3S 
FORF=1704 
D=DCF> 


620 
38 
635 
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FORG=1704 
IFDCPE “G9 THENS13 


A PRINT SaWHITE": 
3 BLG)=BCG2+12 


GOTO S28 

HERTS 

HEATF 

FORG=1704 

IFBCG) Ci GTHENS63 

BCG=B(G)-14 

NEXTG 

1=0 

PRINT 

NEXTC 

PRINT" Mmy'OU DIDH’T GET Iv...” 
PRINT"THE ANSWER IS 7, 
H=BCL)¥LABO+BC]dKILGA+B6SIR1LG+B 649 


STOP 
PRINT *@BRBELL DOHE, CODEBREAKER” 
PRINT"MFOU GOT THE AHSWER IN "50; 


" GOES" 


45 


CHAPTER SIX 
CHANGING IN 
MID-STREAM 


We pointed out at the beginning of the book that, in most 
situations, your computer follows through a program in line 
order, starting at the lowest line number and following through 
in order until the program reached the final line. 


This is not always true. The GO TO command (it can be typed 
as either one or two words, the VIC will still recognise it) sends 
action through a program in which ever order you decide. 


Enter the following program, and before you run it, see if you 
can work out what the result of running it will be: 


ig GOTO 30 

26 PRINT "THIS IS 2g" 

3@ GOTO sa 

38 PRINT " THIS I$ 5@° 
66 GOTO 2a 

88 PRINT " THIS IS se" 
98 GOTOSe 


This rather pointless program sends the poor computer 
jumping all over the place, changing its position in the program 
every time it comes to a GOTO command. Here’s what you 
should see on your screen: 
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THIS IS 58 
THIS 15 26 
THIS IS 36 
THis {§ 36 
THIS 15 29 
THIS 15 38 
THIS 18 3@ 
THIS IS 28 
THIS IS 88 
Tis. IS 38 
THIS i8 20 
THIS I5 8% 
THIS IS 39 
THIS 15 28 


The program starts at line 19, and finding GOTO 59 there, 
moves on to line 5@ to print out ‘‘THIS IS 59’’. It then 
continues on to line 6@, where it finds the command ‘‘GOTO 
26’’. Without question, it zips back to line 2@ to print out 
“THIS IS 2@’’ then goes to line 36 which directs it to line 89. 
At line 8@, it finds the instruction to print out ‘‘*THIS IS 80”’ 
which it does. From there it gets to line 99, and finds ‘‘“GOTO 
50’’ which is just about where we began... and starts all over 
again. 


RESTRICTIVE PRACTICES 


Using GOTO in this way is called unconditional. The 
command is not qualified in any way, so the computer always 
obeys it. Another pair of words generally found together on the 
computer are IF and THEN. IF something is true, THEN do 
something else. IF you are hungry, THEN order a hamburger. 
IF you want some candy, THEN behave. IF something THEN 
do something. The next program, which ‘rolls a die’ (using the 
random number generator) and then prints up the result of that 
die roll as a word, uses a number of IF/ THEN lines: 


P= 
oo 
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REM DICE ROLLS 

GOTO 1f4 

PRIHT “ONE” 

= GOTO 188 

4@ PRINT "TWO" 

45 GOTO 148 

5@ PRINT "THREE" 

so GOTO 188 

6@ PRINT "FOUR" 

65 GOTO 148 

7@ PRINT "FIVE" 

7a GOTO 148 

88 PRINT "SIX" 

1@@ LET A=INTC RMD 1 #6419 
118 IF A=1 THEN 24 

128 IF A=2 THEN 4a 

13@ IF R=3 THEN 5a 
148 IF A=4 THEN 68 
{5@ IF A=5 THEN 7@ 
168 IF A=6 THEN 88 


After THEN if you want to jump to a line you can simply type 
the number of the line or type GOTO the number of the line. 
You will find later on that that other things can follow a THEN 
statement. 


a2 fa fA oe 
LA iS) So 


This is what you’ll see when you run the program: 
FIVE 

FOUR 

FIVE 

FOUR 

OYE 

THO 

THO 

OME 


FOUR 
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FIVE 

THREE 

FIVE 

SIx 

SIX 

SIX 

FOUR 

THREE 

SIX 

So we’ve look at non-conditional, and conditional GOTO’s to 
send action all about the place within a program. 


ANOTHER WAY TO FLY 


There is another way to redirect the computer during the course 
of a program by the use of subroutines. A subroutine is part of 
a program which is run twice or more during a program, and is 
more efficiently kept ouside the main program, than within it. 


This example should make it clear. In this, the computer throws 
a die over and over again. The first time it is thrown the 
computer is throwing it for you. The second time it is for itself. 
After each pair of dice has been thrown, it will announce who is 
the winner (highest number wins). The program uses a 
subroutine to roll a die. Enter and run the program, then return 
to the book and I’ll explain where the subroutine is within the 
program, and how it works: 


1@ FOR I=1 TO 5@@:NEXT I:PRINT 
26 FOR C=1 10 2 

34 GOSUB 194 

4@ IF C=1 THEN LET A=D 

5@ IF C=2 THEN LET B=D 

6@ NEAT C 

7@ IF ADB THEH PRINT" WIN" 

8@ IF ACB THEN PRINT"YOU WIN" 
98 GOTO 18 

1@@ REM THIS IS SUBROUTINE 
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118 LET Dey bo Sis iad b+ 

128 IF C=1 THEN INT’ 2- ROLLED AY SD 
peers cee THEN : SPRINT? OU ROLLED ATID 
148 =1 TO GQ@:HEXT I 

iBa RETURH 

This is what you'll see when you run it: 

ROLLED AS 

YOU ROLLED A 4 

WOU WH 


I ROLLED A 
YOU ROLLED 


a 
ts 


aa JS 8 
“TI bes 
i 


I ROLLED A S 


The program pauses for a short while on line 19, and then enters 
the C FOR/NEXT loop. When it gets to line 30, which it does 
(of course) once each time through the C loop, the program is 
sent to the subroutine starting at line 100. The ‘die is rolled’ in 
line 110, and the numeric variable D is set equal to the result of 
the roll. The next two lines print out the result of the roll, using 
an IF/THEN to determine whether the computer should print 
“TROLLEDA ....”’ or “YOUROLLEDA ....”’’. Thereisa 
slight pause in line 146, and then the computer comes to the 
word RETURN. The word RETURN signals to the computer 
that it must return to the line after the one which sent it to the 
subroutine. In this program, the relevant line is 40, because line 
38 sent the program to the subroutine. There, the IF/ THENs 
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in lines 49 and 5@ determine whether the value of the roll (D) 
should be assigned to the variable A or to the B. 


Line 6@ ends the FOR/NEXT loop, and then lines 70 and 86 
determine whether the computer has won (which it will have 
done if A is greater than B, a condition which is tested using the 
> sign in line 70) or whether the human has won (which will 
happen if A is less than B, a condition tested in line 89 by use of 
the ‘less than’ symbol, < ). From here, the program goes back 
to line 10 where it starts again. 


Study this example until you’re pretty sure you know how 
subroutines work. 


LET’S ROLL AGAIN 


You may wonder if it is possible to change the earlier program, 
which changed the number rolled by the die into a word, using 
subroutines. The answer is ‘yes’, although the program with 
subroutines is not much shorter than the version using GOTO. 
Here’s one way it could be done: 

i@ REM DICE ROLLS 

26 GOTG 188 

30 PRINT “QNE" 

35 RETURH 

42 PRIHT "Tp" 

46 RETURN 

54 PRINT "“THREE™ 


~ 


So RETURN 

64 PRINT "FOUR" 
6S RETURH 

7@ PRINT "FIVE" 
73 RETL IRS 

Se | 

118 
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138 IF As3 5 

143 IF fed SB 

i8@ IF Asd 72 

{68 IF Ass a8 

172 GOTO 1 


Although THEN GOTO 36 can be abbreviated to THEN 39, 
after an IF statement, if you want to call a subroutine, the 
GOSUB command must be included after the THEN 
statement. 


COMPUTED DESTINATIONS 


Your computer is capable of accepting a number, an assigned 
variable (such as B when it knows what number B represents) or 
a combination of these as instructions on the line number it 
should go to. In the previous program, you’ll see that the GO 
SUB destinations get larger in a regular way, and the number 
rolled by the die also increases in a regular way. We can use this 
information to tidy up the section from lines 118 to 17 in the 
previous program, so that it looks like this: 


i@ REM DICE ROLLS 
28 COTO ine 

Sa PRINT “OHE* 
35 RETURN 

46 PRINT "THO" 
45 RETURN 

Se PRY “THREE® 
Ba RETURY 

6@ PRINT “FOUR 
635 RETURH 

7@ PRINT 

75 RE 

8a FR 

186 L 

i128 a 

ize G 
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If you run this, you’ll see it performs in exactly the same way as 
the longer version. 


The program can be further condensed with the use of 
multiple-statement lines, producing this effect: 


i@ REM DICE ROLLS 

28 GOTO 168 

3@ PRINT “GHE”:RETURH 

48 PRINT "TWO" :RETURH 

5a PRINT "THREE": RETURM 
68 PRINT "FOUR": RETURK 
79 PRINT "FIVE" > RETURN 
Se PRIHT "OTK" 

198 LET A=INTCRHDC Lp #6o+1 
118 OW @ GOSUB 38:.48.59.58, 78,38 
iza@ GOTO ive 


Notice the word ON. What this does is to look at the variable 
after it, and then choose a line number to jump to, or execute a 
subroutine from depending on this number. This number must 
be between @ and 255, otherwise the computer will stop with an 
error message. If the number is 1, the computer goes to the first 
line after the ON statement; if it is 2 the computer goes to the 
second line etc. If the number is @ or higher than the number of 
lines given in the program line the computer continues onto the 
next line without jumping anywhere. This may sound a bit 
confusing so experiment for yourself by changing line 199 to set 
the variable A equal to various values such as: 


106 LET A=5 


CHAPTER SEVEN 
GETTING INTO THE 
MUSIC BUSINESS 


Your VIC has an excellent sound facility. This is a great way to 
add life to your program. It is amazing what a little sound can 
do to enhance a program. 


The only problem is, the VIC has no commands to control the 
sound so this must be done with a rather strangely named 
command POKE. This has two numbers after it separated by a 
comma. What it does is take the second number (which must be 
between @ and 255) and place it in a memory location whose 
number is the first number (which must be between @ and 
65535). This command has a function related to it called 
PEEK. What this does is return the value of what is stored in the 
memory location whose number is in the brackets after the 
PEEK. So POKE 7689,32 will put 32 in memory location 7688 
and LET A= PEEK(7689) will give A the value of whatever is 
in memory location 7688. This may seem a little complicated, 
but you should understand it if you persevere. 


The VIC’s sound is controlled by five of these memory 
locations, because they are special they have a special name: 
REGISTERS. They are as follows: 


Memory location 36874 — this is the alto voice (low). 
Memory location 36875 — this is the tenor voice (medium). 
Memory location 36876 — this is the soprano voice (high). 
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Memory location 36877 — this is the noise channel. This is 
useful for gun shots, explosions etc. 

Memory location 36878 — this is the volume control. It can be 
any setting from 9 (no noise) to 15 (loud). 


All of the first four registers can hold any number between 128 
and 255. The higher the number, the higher the pitch. They can 
hold numbers less than 128 but this will not produce any noise. 
Notice how you can have up to three musical notes and one 
noise playing at the same time. You can POKE these registers ~ 
directly or from within a program. Remembering that you must 
POKE the volume register with a number bigger than @ to hear 
anything (and have your television turned up). Perhaps the best 
method for creating sound effects from within a program is to 
calla subroutine like the one listed below. Before you call it, put 
the value you want register 1 to be in variable S1, the value you 
want register 2 to be in variable S2 etc. Put the start and end 
volumes in variables V1 and V2. Then call the routine using 
GOSUB 9806. If you don’t want any of the voices to play, puta 
® in the corresponding variable. Also*’remember to put the 
duration in variable DU, making sure it is at least 1 and also not 
a decimal. You can use this routine in your own programs: 


1@ Vi={S°¥2=15:$is240:S2=0:S3=9:S4=4g 
28 DU=258:GOSUB 9686 

34 GOTO 38 

8999 REM SOUND ROUTINE 

9086 POKE 36878,PEEK¢36878) AND 246 
$885 POKE 36874,31:POKE 36875.S2:POKE 
36S76:53:POKE 36877.54 

S016 DY¥=C¥2-V19/DU 

9615 FOR I=2 TO DU 

9820 VI=VitDY:POKE 36878, PEEK(36878) 

AND 246 OR ¥i 

9438 NEXT I:POKE 36978.PEEK(36878) AH 

D 246 

3840 POKE 36974,@:POQKE 36875.@:PQKE 3 


77, 
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aoe 
Soot: 


That was only one note playing. The following program plays 
three notes which all get quieter. 


18 Wi=15:¥isO: S1=135:S2=195 :$9=225:54 
= 
28 TWSSR2:G0SUR sane 
38 GOTO 3a 
8999 REM SOUND ROUTINE 
S008 FOKE 36ers. 
3005 36! 

oe 

#2 


eT 


Woy Wo Re ko ow bo ks 


SOUND ADVICE 


The control numbers held in the variables can of course be the 
result of calculations instead of just numbers. In the next 
program, you have to guess the number between | and 59 which 
the computer has thought of. The feedback on each guess — 
which will help you home in on the correct number in the 
shortest possible number of guesses — is in the form of notes 
from your VIC. Once you’ ve played it for a few rounds, you’ll 
learn to interpret the output from the computer. 


When you manage to guess the answer, you’ll get this on the 
screen: 
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WES. 1 WAS THINKING OF 


YOU GOT IT IN 6 
GUESSES 


Here is the listing and note the POKE in line 30 is to set another 
register, this one controls background and border colour and 
will be discussed later. Note also, the control code in the 
PRINT statement to get white writing: 


1@ REM SOUND ADYICE 

aa LET R=TNTCRHDS 1s e5a+1 > 

3A POKE 36879,42:FRINT "a" 

48 LET GUESS=1 <x 

S@ PRINT "PORDORERBITHIS 

GUESS A A et 

68 PRINT niHAT HUMBER AM I": THRUT" THI 

WETHG OF: 

Ba TF A=E THEN 1 

9@ PRINT "Sieo. ">A: "IS HOT CORRECT" 

{88 Si=8:53=8: 94s: Vi=15:Yo=8: =i eee 
~GUESS/S3 : S2=138+2SAESCR-AD 

118 GOSUP S@@8°LET GUESS=GUESS+ 

128 IF GUESS<48 THEW 5a 


ee 


bt 
my 


125 PRINT "TISBeITOO SLOW, T WAS": PRT 
HT"THIHKING OF": Rk: GOTO 284 
{38 PRINT “TIMeNES. 1 WAS THINKING OF" 


:-PRINT PR 
148 PRTMT “wise GOT TT TH"; GUESS :PR 
INT “GUESSES” 

1i5@ END 

8999 REM SOUND ROUTIHE 

qAga POKE 26878.PEEK(3687283 AND 24a 
9485 POKE 36874, 81: :POKE 26875,2:2 


a 
KE 
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36876,53:POKE 36277.54 

941 Ds CYO—W1 TH 

9815 FOR T=2 TO Du 


ga28 Yi=Vitl¥: POKE 36978. PEEK (36878 

AND 244 OR ¥1 

SH3H HEXT I:POKE 36878, PEEK(36878) AN 
D 24a 

9046 POKE 36874,.8:POKE 36875.@:POKE 3 
6876,4:POKE 36877.0 

34354 RETURN 


The first line is, of course, just a REM statement to tell you the 
name of the program. The next line generates a random 
number between one and fifty, and sets the numeric variable R 
equal to this number. In line 36, the computer turns the 
background to red, the colour in which the computer prints to 
white, and the area surrounding the centre of the screen, the 
BORDER, to red, the same colour as the background. 


Line 49 sets a numeric variable called GUESS (the VIC only 
recognises variables by the first two characters of their name — 
so that GUESS and GUN are considered to be the same variable 
— but you can use longer ones to aid readability) to one, and 
line 59 prints up the number of your guess. Line 6@ accepts your 
guess, as variable A. If A (the number you’ve guessed) is the 
same as R (the number the computer thought of back in line 
2@), as the computer checks in line 80, then the computer knows 
you have guessed its number. 


If you are not right, then line 9@ tells you so, and the following 
line (100) gives you your audio feedback, with both the length 
of the note, and its pitch, being related to the difference 
between your number and the computer’s number. The 
variable GUESS is incremented by one (that is, one is added to 
the value of the variable GUESS) before the computer returns 
to line 59 to accept your next guess. 
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If you have guessed the number correctly (detected in line 80) 
the program moves to line 13@. The screen is cleared and the 
computer tells you the number it is thinking of, and then (in line 
149) tells you how many guesses you took. 


CHAPTER EIGHT 
MAKING 
COMPARISONS 


We all know the equals sign (=) and we’ve seen it in use in 
several programs so far. We’ve also seen the greater than (> ) 
and less than (<) signs. At this point of your learning, we 
thought it would be useful to briefly recap on what each of these 
signs are, and what they mean: 


= equals 

> greater than 

< less than 

> greater than or equal to 
< less than or equal to 
<> not equal to 


You'll see these in use in many programs in this book, such as 
this next one, which allows you to challenge the computer to a 
game of BRICKBAT, written by Graham Charlton. 


This is the listing for BRICKBAT. 
1 POKE65@.255:POKE36873.15:DEF FHACA 
S 'PS=" SDT Te Tele Te lela ere le ya Taare tage)" 


¢ $=" SRRRRRSSRRSORS SRP RR SI" 
18 POKE36879. 125:PRINT" TEs 


LS fie 
t 


15 PRINT" n: 
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24 PRINT" ARBBROSRORRERRSRRBRR! " 
34 PRINT" IRSRRRERRRRSRRRDESRR! ". 
46 FOR A=1TOS:PRIHT" "J MIDS(COS, RHDCL 


6@ HEXTA 

7@ FORA=1TO12 

80 PRIHT" MRRRRRRRRRSERSARRRES! "- 
@ NEXTA 

ag T=18:SC=a 

AS PRINT"ALIVES": Ti "HH". 


120 IFFNACL1=207 THENSC=SC 
. 


1: PRINT" 3a 
" TABC16);SC:C=-C:FR=255:LE= 


ee 
E=2:GOSUBIA 
13@ IFY>2ETHENS3A 

14@ PRIHTLEFTS¢V$. 141); LEFTSCX$: X43; 
145 PRINT" Me"; LEFTS(7$, 229; LEFTS 4S." 


33 
{50 PRINT" Semel " 

168 GETAS:M=M-CAS="M"ANDMNC179+CAS="2" 
A 


ANDM>@ > 
17@ IFY+C<2THENC=-C ‘ FR=191-LE=1:GOSUB 
1988 


186 IFY=2Q@THEMIFXS=MTHENIFACH=M+4 THEHC 

=~(‘LE=1:FR=193:GOSUB1aaa 

{198 IFR+DCLORK+D>20THEND=-D: FR=195:LE 
=1:GNSUB1aa@ 

@@ PRINTLEFTS¢(V$. T4135: LEFTS CRS, 49; 

19 PRINTS "5 Y=¥4C: 4=x+0 

24 GOTO 128 

38 T=T-1:C=-0: FORR=17T0648T : FR=195+R°L 
2: GOSUB198@: FR=Z55-R : GOSUBIAGS EXT R 


M ho Po ha ho 
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248 PRINT’ SLIVES"; T:"H ", 

245 PRINT"SCORE" SC: "MH "SLEFTS(Y$. 223 
;LEFT#CXS, M2: 

25@ PRINT’S e. 

260 IFTD@THENLIA 

e7@ FR=RHNC13#127+129:LE=2:GOSUB1 aaa: 
GOTOZ74 
{aaa POK. 
KES6876, 


In BRICKBAT, you use the M and Z keys to move the little 
black slide at the bottom of the screen back and forth, 
bouncing the ball off it (if you can). As the ball bounces up to 
the coloured squares, it will strike them, making a sound, 
adding to your score and causing the ball to disappear. You 
have ten balls per round. It is fascinating to see what happens if 
the ball gets momentarily ‘trapped’ inside the bricks, bouncing 
off them wildly, before it finds a way out and down. You'll see 
how effective this can be when you run the program. 


Notice that our ‘comparison symbols’ (less than, and the rest) 
are used frequently in this program. They perform a number of 
tests in conjunction with IF/THEN statements, bouncing the 
ball off the slide at the bottom of the screen, the walls or the 
bricks, deciding when the ball has missed the slide, and 
continuing the game if (in line 260) you still have a ‘life’ (that is, 
ball) left. The program ends in line 276 with an endless series of 
randomly chosen beeps. You’ll need to press the RUN/STOP 
key (sometimes called the BREAK key) to get out of the 
program. 


The words AND and OR are also used in comparison lines, 
chaining two or more tests together, as in lines 160 and 199. 
They work as follows: 
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AND The computer does what follows the THEN 
if both of the conditions chained by the AND 
are true 

OR The computer carries out the instruction 
following the THEN if either of the 
conditions are true. 


Let’s see how this works in practice. In line 160, the computer 
checks to see IF you are pressing the M key AND if M is less 
than 17, and if both these conditions are true, moves the slide 
one square to the right. Line 19 bounces the ball off the side 
walls. It checks to see if the ball is about to hit the left wall (IF 
X + D< 1) OR is about to hit the right wall (IF X + D> 20) and 
if either of these conditions is found to be true, the computer 
‘bounces’ the ball, by changing the value of D, the variable 
which determines the change in the position of the ball across 
the screen from move to move. 


Notice the extensive use of control strings to position printing 
on the screen. Commands such as LEFT$ will be explained 
later on, suffice to say that they are used for the extraction of 
various parts of strings (known as string slicing). 


Note also line 160. If a condition is true in VIC BASIC, a -1 
will be returned, otherwise a @. Therefore if A$ = ‘‘M’” ANDM 
< 17 is true then —1 is subtracted from M otherwise a @ is 
subtracted. Note that subtracting — | is the same as adding +1 
(i.e. moving 1 to the right). If the second condition in the line is 
true, — 1 is added to M (i.e. + 1 is subtracted, moving | to the 
left). 


CHAPTER NINE 
TWO GAMES AND A 
SPEED TEST 


It’s time now to take a break from the serious business of 
learning to program the computer. As you can see in this 
chapter, we have a couple of major programs, which use many 
commands that have not yet been explained. We suggest you 
enter the programs just as they are, play them for your own 
enjoyment, then come back to the explanations which follow 
the listings after you have mastered the rest of the book. We do 
not think it is fair to keep you waiting for major programs until 
you’ ve covered everything on the computer, so we have decided 
to supply you with these programsat this point, and hope you’ll 
enter them ‘on trust’, returning to this chapter for the 
explanations when you feel you are ready. Of course, you do 
not have to enter the programs right now. If you’d prefer to 


continue with the learning, then move straight along to chapter 
ten. 


PLAYING ALONE 


Our first listing allows you to use your computer as a Solitaire 
board. It is believed that Solitaire was invented by an 
imprisoned nobleman in France in the late 16th century, and 


was brought into England in the closing decade of the 18th 
century. 


The aim of the game is simple to explain, but not so easy to 
achieve. You start on a board which has 33 positions marked. 
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There are ‘pegs’ in 32 of the positions on a real board, and the 
middle position is empty. 


The little man-like figures represents the pegs, and the black 
square in the middle of the screen is the empty spot. To play, 
you simply jump over any of your pieces vertically or 
horizontally, so that you end up in an empty position. The piece 
which you have jumped over is removed from the board. The 
aim of the game is to end up with just one little man in the centre 
position. 


As you can see, you are told the number of the move, and vote 
many pieces are left on the board. You move by entering the 
co-ordinates of the piece you want to move, using the number 
down the side first, followed by the number across the top. 
These are entered as a single, double-digit number. If you 
wanted to move the piece which was two positions below the 
central hole at the start of the game, jumping into the central 
position, you’d enter 64, then press RETURN, followed by 44, 
and RETURN again. The board is reprinted, colourfully and 
musically, and you are then offered another move. 


This is the listing of the Solitaire program: 


S POKESS, 255: POKES6, 27 

if REM SOLITAIRE 

15 COS="SRie." :POKES6S69. 255: POKESSS 
78,15 

20 GOSUEZER 

38 GOSUB1S2 

4@ REM ACCEPT MOY 

45 PRIMT " SUeDUMetselelelelelslereriaielelel HICH PE 
G 


S@ INPUT" STO MOVE":A 

6@ POKES6S76, 175+RND< 1 #60: TFACR OCP 84 
THEH 58 

6S POKE36376.,4 
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88 POKES6876. 175+RND¢ 13860: [FACBI<3ET 
HEN? 

85 POKES6876. 4 

98 ACCA+BI/23=E /ACAD=E ‘ACB =64 


a re 


12@ FORF=117T075 

34 TFACFI=64THENCOSCO+1 

44 WEATF 

154 GOSUB19a 

16@ IFCOUNT>1 ORAC44><S64THENI7a 

165 PRINT"A'GU DID IT IN“; MO:PRINT"g 
MOVES" : POKE36869, 246: STOP 

i7@ PRINT" STSSTeADeseAAe ST HERE ARE” 
:CO 

{75 PRINT" SPEGS ON THE BOARD": GOTO 4a 
{234 REM PRINT OUT 

194 PRINT" TRRPDMRRNRRRRRIS) 234557" ; 
195 PRINT" SRM 7ST" ; 
208 FORD=11T075 

219 IFD-1@#¢CINTCD/183>=8 THEND=D+2:PR 
IMT "Gia" « -INT(D/105+1 :PRINTTABCS3 | > GOT 
0234 

215 IFRCDI=64THENPRIMT"@"; : POKE36876, 
208 

216 IFACD=ETHEMPOKES6976.. 15Q+PNT( 1 # 
28 

218 TFACDOCSS84THEMPRINT" 9"; 

228 PRINTMIDSCCOS, 1-CRMDC 18541 #CACD 
9364). 1); CHRSCACD); 

238 NEXTD 

240 PRINT" FRMRBBMS "30; "MOVES SO FA 
R ui 5 

258 POKE26376,6:RETURH 

268 POKE?6379,25:PRINT" Tm"; -DIMACS7) 
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E=16 
FORD=1 17075: IFD-1@#¢ TINTON A183 9=8T 


READACD> 

NEXTD 

MO=8 

FORZ=@TO7 

READS 

348 POKE7168+Z.% 

345 NEXTZ 

35@ RETURN 

368 DATAS2, 32, 64,64,64, 32:32 
374 DATAS2. 32:64, 64,64, 32,32 
386 DATAG4, 64,.64,.64,.64.64,64 
398 DATAG4. 64,64, 166.64,64.64 
49@ DATAG4, 64,64.64.64,64.64 
41@ DATAS2. 32, 64.64.64, 32,32 
424 TATAZ2. 32.64,64,64 

434 DATAZS, 93, 73:62.28,54,99,8 


209 O23 WIT Eh hy 
G3 fo es LD IT OO ~~ 
QO DSA SD TZ Dw 


2 iy 


The program works as follows. Line 2@ sends action to the 
subroutine from line 26 which sets up the requirements for the 
start of the game. The BORDER is set to red, the PAPER to 
white, and the print colour is set to black. The screen is cleared, 
and the A array is dimensioned to hold the board. One variable 
is initialised: E for the black, central square. The loop is lines 
288 to 300 reads the DATA from lines 369 to 420 to get the 
positions for the start of the game. 


Character 64 is the first user-defined graphic (‘‘@’’) and this is 
set up with the loop from lines 32@ to 345, using the DATA 
from line 430. 


TESTING YOUR SPEED 


Our next program, REACTION TESTER, is much shorter 
than Solitaire, but just as much fun to play. You enter the 
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program, press RUN, and the message STAND BY appears. 
After an agonizing wait, STAND BY will vanish, to be replaced 
with a notice: ‘OK, PRESS THE ‘Z’ KEY’’. As fast as you 
can, you leap for the Z key, and press it, knowing that the 
computer is counting all the time. 


The computer then tells you how quickly you reacted, and 
compares this with your previous best time. ‘‘BEST SO FAR 
IS...’ appears on the screen, and the computer then waits for 
you to take your hands off the keyboard, to prevent cheating 
(as if you’d try to cheat on your computer), before the whole 
thing begins again. As well as printing out your best score, the 
computer also prints out a long red bar, the length of which is 
related to your best score, to give you an easy-to-read indicator 
of how well you’re doing. The game continues until you 
manage to get your reaction time down to below five, which is 
not an easy task. 


Here is the listing of REACTION TEST: 


= REM REACTION TEST 
16 HI=1000:POKE36878. 15 
15 PRINT"T"; -ASRND(-T1) : BS=" 


20 PRINT" SRMRESTAND BY 

36 FORA=1T020@+RNDC 1 s#5 aa 

35 GETAS: IFASCS"" THEHSS 

46 HEXTA 

45 POKESE876.4 

SH PRINT" TTOMTeMMIK .PRESS THE “2° KEY 


198 IFAS<>"Z" THENZA 
110 PRINT" MMMYOUR SCORE WAS "sco; "Hm ° 
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128 IFCOCHITHENHI=CO: POKE36876. 138-<C 
O# (COOLER) 22 

13@ PRINT"S"; BS; "59 BEST SO FAR IS";H 
1; "80 Fa": S X=H1T: TFR>44THENK=44 

132 PRINTLEFTS¢ BS: 24/2) 

135 IFHI<S THEN160 

14@ GETAS: IFAS<>" "THEN14@ 

i5@ GOTO 20 

168 POKE36879.56:PRINT "C3" 5 

174 PRINT" MAM =6'YOU’RE THE CHAMP! !" 
175 POKES6376.8 


Line 10 sets the variable HI to 1000, after the random number 
generator is seeded in line 15, a string (B$) is set up. Following 
this with a command to PRINT B$ would get the computer to 
print up a line of 22 spaces. The only way you could see would 
be to PRINT them with REVERSE, so that a solid bar would be 
printed. In line 130, the computer uses B$ to blank out 
everything on the top row, before the words BEST SO FAR 
IS... are printed on the following line. Then, the end of that 
line prints a solid red bar (using LEFT$(B$,X/2) as you can see) 
which prints a bar related to your best score, so long as this best 
score is lower than 45. 


The variable CO is set to zero in line 68 and incremented by one 
every time line 7@ is revisited, because you have not yet 
managed to get to the Z key. Line 10@ checks to see if you have 
touched the Z and if not, sends the program back to 7@ where 
CO is incremented. 


Once you have managed to get to Z, the program ‘falls 
through’ to line 118 where you are told your score. This is 
compared with the best score (variable name HI) in the 
following line, and HI is adjusted to CO if CO is the lower of 
the two. A beep sounds, related to your score on that particular 
round. The lower the tone, the better you did. 
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O see if you have managed to get a 
score lower than five, and if you have, directs the computer to 
line 160 where the YOU’RE THE CHAMP!!! message is 
displayed. If not, line 14 waits until you have taken your 
fingers off the keyboard and line 150 directs the Program to line 
20, where the next round is played out. You’ll have few 


problems getting a score of 15 or so, but to get it below five is 
- extremely difficult. 


A CORNER ON GO 


by eight board, Hasami Shogiis played ona nine by nine board. 
The corner of a Go board (19 by 19) is often used. 


You take it in turn to move, and you can move only one piece 
per turn. You move vertically or horizontally, but not 
diagonally. With each move, you have three choices: 


—— you can move into a vacant Square which is above, 
below or beside your piece 
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— you can jump over one of your own pieces into a 
vacant square ayia 

— you can jump over an opponent piece into an empty 
square 


Unlike Checkers, a piece which has been payee is Bs 
captured, and is not removed from the board. T e eae ef 
you can capture a piece is by moving so that your piece . e : 
computer piece between two of yours. It ee p sr 
a similar way. You do not lose your piece simply y cs . 
in between two computer pieces. Therefore, you aim ee 
your piece next to a computer piece, with an empty ig : 
beyond that, so you can move into the empty square 
subsequent move. 


Observing a game in action is perhaps the best way to 
understand it. 


Next is the listing for Hasami Shogi, and after the listing we’ ll 
explain how the program works. 


2EM HASAMI SHOGI ? 
so a MAKE SURE YOUR COMPUTER IS IN 
UPPER CASE MODE 
38 GOSUB79a 
40 GOSUIBSS 
5A SOSUR46A 
68 GOSURE3A 
78 GOSUB46O 
88 GOTO4a 
30 REM CAPTURE 
rac CTHEN199 
118 IFACAD<> 
os IFACA~189=ETHENIFACA-9)=HTHENIFAC 
~3)=CTHEHR=A-18:GOTO35@ 
Se cence seeee erie pasaaruceinn 
(A-123=CTHENB=A-10:GOTOSSA 
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140 IFACA-1@>=ETHENIFACA+1 1 S=HTHENTIFA 
{A+123=CTHENB=A-14: GoTO35a 

i358 B=1 

164 [FA+2#C¢B5<1 1ORA+28CCBI>S9THENISO 
i7@ IFACA+C(B) =EANDACA+2#C¢B) =HANDA 
CA+38C(B29=C THEN ACA+2#C(B3=E:CS=cs 
+1:GOTO34¢ 

189 IFBC4THENB=B+! -GOTO16a 

19@ IFA>1{THENA=A~1:GOTOLIA 

288 REM NOH~CAPTURE 

218 CO=a 


CHAPTER NINE 


A [FACB+19)=HAMDACB+20=CTHEMACE+14 
‘CS=CS+1 


TFACZSTHENRETURN 
IFR¢E~18>=HANDAS B-289=CTHEMACB-18 


‘CS=CS+1 


RETURN 

REM BORRD PRINTOUT 

PRINTCHRE¢ 1473; 

PRINTTAB(3);"81 2345678 9" 
FORM=38TO1LASTEP-18 

PRINTS "CHRE(M/1G+645;" BY: 


228 CO=CO+1 51a FORN=1TO¢ 
ee een RBSeL 528 PRINTCHRSCACMHND) 5" "3 
24@ IFACAY=CTHEN279 520 NEXT 
258 [FCO<2@aTHEN22a 540 PRINT" S"CHRS(M/10+64) 
268 PRINT"MHASAMI SHOGI MASTER" :PRINT S5@ NEXT 
"I GI¥E YOU THE VICTORY!" : END 56@ PRINTTAB(39;"1 2345678 9" 
270 B=1 570 PRINT" BCOMPUTER : "CS"HUMAH: "HS 
280 IFA+2#C6B9<11THENSAG 598 IFCS>60RHSSSTHENG12 
298 IFCACA+C(B> =CORACA+C(B) =HIANDAC 6@Q RETURN 
A+2#C (BD =ETHENB=A+2#0 CBD : GOTOS5A 618 IFCSSHSTHEHPRINT: PRINT] WIHI":E 

HR 308 IFACA+C¢B) =ETHENS3a HD 

i 319 IFBC4THENR=B+1 :GoTO2sa 628 PRINT: PRINT" @YOU WINI": END 

3286 GOTOZ58 638 REM PLAYER MOVE 

| 338 REM COMPUTER MOVES 648 INPUT"RFROM (LETTER. WO)"; AS 

[ 348 B=A+C(B) 65@ IFA¢="S"THEMEND 

Hh 358 B1i=B-1#(INTCB/1@)) 660 [FLEHSAS)}<>2THEN648 
368 ACB=C:ACAD=E 67@ PRINT"FROM "AS" TO "3: IMPUTRS 

| 378 IFB1>7THEN399 684 IFLENCBS3<>2THEN64a 

| 380 IFACB+13=HANDACB+2>=CTHENACB+1=E 690 A=1O#(ASCCASI-6494+VAL CRIGHTS(AS, 1 
‘CS=CS+1 yy 
399 IFBICS3THEN414 7HA B=1GeCASCORS3~6494+VAL CRIGHTSCRS, 1 
488 IFACB~19=HANDA’B-25=CTHEMACB-1 =F 3) 


‘CS=CS+i 718 YSVALCRIGHTS(RE, 133 
$18 IFASSSTHENASA 298 ACBI=H:ACAISE 
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738 IFACE+1 =CANRACB+2)= c=? 
eee, B+2>=HANDY<=?7 THENA 
740 IFACE~1=CANDACB~2)= = ; 
ee naiveds 2)=HANDY>=3THEHA 
es IFB>79THEN778 

@ IFACB+1@3=CANDACB+20)= 

bop Meisel B+20)=HTHENACB+1a 
778 IFBD=31THENIFACB-19)=¢ ~28)= 
HTHENAC B-189=E :HS=HS+1 Biph 
73@ RETURN 
is REM INITIALISE 

@@ REM SEED RANDOM NUMBER GEN 

818 PRINTCHR$(147)"PRESS A eee 
828 GETA$: IFAS<>""THENS2n 
834 GETAS: IFAS=""THENG3a 
858 N=RND(-TI) 
878 PRINTCHRS(147 
886 DIMAC1299,0¢4) 
836 H=113:C=166:E=42 
988 FORZ=11TN29 
918 IFZ=26THENZ=21 
928 ACZI=H 
938 NEXTZ 
948 FORZ=31T79 
958 IFLG#KINT(2/14.=ZTHENZ=74+1 
968 ACZI=E 
978 NEXTZ 
3388 FORZ=31T099 
338 IFZ=9@THENZ=91 
1888 ACZj=C 
1813 HEXTZ 
1629 HS=8 
1936 CS=6 
184@ FORZ=17TO4 
1958 READCZ) 
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{@6@ NEXT 

{a74a DATA-18,-1,1,18 

{fea GOSUB4ES 

ja94@ RETURH 

The program listing may seem very long, but it is somewhat 
simpler to understand than it may appear at first sight. This is 
because it has been written in ‘modules’, each of which is called 
by a GOSUB near the start of the program. Programming in 
this way is a good idea if you are developing a program which 
could be fairly long and involved, as it enables you to keep track 
of what each section is doing. As well, it is easy to track down 
bugs (the common computer word for a program error, and 
named after a malfunction in an early IBM computer which 
was found to have been caused by a moth which was caught 
inside the cabinet) if the program is in modules, as the module 
which contains the bug should be relatively easy to isolate. 


The idea of programming in ‘modules’ in this way is perhaps 
easier to understand if we show how it has worked in this 
program. 


Line 38-GOSUB 79@: This sends the program to the 
subroutine which sets up all the starting variables. This kind of 
a subroutine is often called the initialisation subroutine. On 
returning from the subroutine, the computer gets the 
instruction to GOSUB 998. 


Line 48—GOSUB 99: This is the subroutine which determines 
the computers move. The computer moves first in this game. 
Firstly, in the lines from 9 to 18, it goes through the board, 
square by square, looking for a potential capture. It does not 
take very long to do this. 


If a capture has not been found, the computer then moves into 
its routine for looking for a non-capture move. Here, it sets the 
variable CO, which counts the number of moves it has selected, 
(o zero to start with, and then adds one to it in line 220. Line 238 
chooses a square on the board at random — the squares are held 
in an array, the A array, and are numbered from 11 to 89 —and 
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then checks to see if it has one of its Own pieces on that square. 


The variable C indicates one of its own pieces. If it finds one 


there, it moves to line 276 to make the move. 


If not, the program checks that it has not yet selected 200 moves 
(that is, it checks that the variable CO is less than 208) and if it 
finds that it is, sends the action back to line 22, where one is 
added to CO, and a new Square is selected in line 239. If it tries 
260 numbers at random, and does not find one of its own pieces 


— amost unlikely situation — it will concede the game with line 
260. 


However, if it finds one of your pieces (in line 249) the program 
goes to the routine from line 270, where it tests the square 
located for a move, using elements of the C array, which 
represent potential moves from each Square. Jumps are given 
priority over single moves. 


If a move has been found, the program then goes to line 339. If 
not, line 32@ sends the program back to line 226, where another 
Piece is located to consider for moves. 


The actual move, and the result of that move, is made in the 
lines from 330. The computer makes its move in line 360. Lines 
370 through to 449 process the move, taking any captured 
pieces off the board. Line 459 returns the program to line 50. 


Line 586—GOSUB 469: The routine from line 466 prints out the 
board. This subroutine is, of course, visited after each move, 
whether by the computer or the player, to update the board. 
Line 598 checks to see if either player has managed to capture 
more than six of the opponent’s Pieces, and if so, goes to line 
619 to print out the name of the winner. If not, the board 
printout subroutine is exited via line 690, and the program 
returns to line 69. 


Line 68—GOSUB 630: We hope by now you are working out 
how the modular idea is applied. A series of subroutines, each 
of which carries out a specific task, is called over and over again 
as the program progresses from a small number of lines, which 
the program loops through, time and again. Even if it’s not 
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100% clear now, it should be by the time we finish the 


explanation. Anyway, this subroutine from line 638 — as the 


REM statement explains — allows the player to enter his or ne 
move (terminating the program if the player enters a 
stop) in lines 649 and 679, translates the letter and numt ee : 
the players ‘‘to’’ and ‘‘from’’ squares into numbers aL t : 
computer can apply totheA array, and then makes the = eer 
changes in the loop through to line 780, where the RE 


sends the program back to line 70. 
is li back to the 

Line 70—GOSUB 469: This line sends the program 
subroutine which prints out the board, to reflect the changes 
introduced by the players move. 

i : Thi back to line 40, 
Line 806—GOTO 48: This sends the program 
where a subroutine call is directed to 9, to get the computer to 
make a move. 


We hope by now you can understand the structure. This is what 
is happening: 


GOSUB796 — initialised (this subroutine is not revis- 
ited) 
GOSUB 90 — computer makes a move 
GOSUB 466 — board is printed out 
GOSUB 636 — human makes pleat : 
SUB 466 — board is printed out again 
preset — return to the line to allow the com- 


puter to make a move 


This sequence is cycled over and over again while the a 
is running until one player or the other manages to Fhe 
seven or more of the opponents pieces. You can see that : we 
had, for example, a problem with the way the board was one 
printed on the screen, it could be overcome relatively re ss 
because we would know theerror lay between lines 4665 ey - ; 
Similarly, if we wished to alter the style of play exhibited bs . 
computer, all we’d have to do is look at the sequence w ic 
began at line 98. Programming in this ‘modular’ way is very 


useful. 
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948 to 976 an 986 to 1919) 
positions. In lines 1626 and 1030 the variables which hold the 


zero. Line 1089 calls the 
the board as the comput 


sends the program b i 
bens, g ack to line 48, where the whole ‘game cycle’ 
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STRINGING ALONG 


You’ll recall that several times in this book so far we have 
referred to numeric variables (letters like A or B, words like 
COUNT and GUESS, and combinations such as R2D2 or 
C3PO) and to string variables (such as A$, B1$, FC$ etc). In 
this chapter we’ll be looking at strings, and at things you can do 
with them. 


THE CHARACTER SET 


Every letter, number or symbol the computer prints has a code. 
This is known as the ASCII code and is pretty standard for most 
micro computers (your VIC also has a lot of extra, none 
standard codes as well as some of its symbols having none 
standard codes). Telling the computer to print the character of 
that code produces the character, and is done using the 
function CHR$ (N) where N is the code of the character. You 
may remember seeing this in chapter one. It is easy to 
understand this. The code of the letter ‘‘A’’ has nothing to do 
with the value assigned to A when it is a numeric variable, but 
refers to ‘‘A’’ when we actually want the computer to print the 
letter ‘‘A’’ out. We’ll put the ‘‘A’’ in quote marks when 
referring to it as a letter. Try it now. Enter this into your 
computer and see what you get: 


PRINT ASCC"ANS 


You should get the answer of 65. Now 65 is the ASCII code of 
the letter ‘‘A’’. We can turn it back to an ‘‘A”’ by asking the 
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computer to print the character which responds to ASCII code 
65. We do this with the function CHR$. 


PRINT CHR$(65) 


You can get the computer to print out every code and character 
with the next short program (except the control codes which 
would upset the display), which has — as you can see — a very 


long print out. When SCROLL? appears, just hitthe RETURN 
Key to continue. 


1@ REM SHOWING ASC AND CHRS 
24 FOR A=32 TO 191 STEP 2a 
38 FOR B=A TO A+i3 

33 IF B=128 THEN B=122: 


IF B=132 THEN E-2a 


BSH Gi 
1 


37 ae 
46 *RIMT"ASC";> Bs TABCIO); 
45 


ee iy 


TO 45 
"CHARACTER ";CHRSCR) 


ASC 32 

NEXTE ASC 53 

38 IF A=112 THEN LET A=i4a ASC 54 
66 INPUT"SCROLL" AS ASC 55 
78 HEXTA ASC 56 


ASC 57 
Notice the use of two loops so that only 20 codes are printed on ASC Be 
the screen at once, thus preventing the information scrolling ASC 59 
away before you have a chance to read it. This is what you’ll get ASC 60 
when you run the program: ASC 61 
: ASC 62 
First in uPPer case ASC 63 
ASC 64 
ASC 32 CHARACTER ASC 65 
ASC 33 CHARACTER ! ASC 66 
ASC 34 CHARACTER " ASC 6? 
ASC 35 CHARACTER # ASC 68 
ASC 36 CHARACTER $ ASC 69 
ASC 3 CHARACTER % ASC 78 
ASC 38 CHARACTER & ASC 7i 
ASC 39 CHARACTER ¢ st 
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CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER, 
CHARACTER 
CHARACTER 
CHARACTER 


CHARACTER ; 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHREACTER 
CHARACTER 
CHARACTER, 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


CHARACTER | 


CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 


oe 


a 1 NL 


Gap 


10D “on On 


mythos 


TMS os DD te - 
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ASC 72 | 
ASC 73 poet aps H ASC 186 CHARACTER * 
ASC 74 eee ASC 107 CHARACTER / 
ASC 75 aes } asc ias CHARACTER L 
ASC 75 ee neegee K ASC 189 CHARACTER *. 
ASC 77 ee L Asc 110 CHARACTER 
280 78 preety ASC {11 CHARACTER T 
5 lic cde kc Sah SCROLL 
~ - CHARACTER 9 
ASC 21 ee ASC 112 CHARACTER 7 
Hh ASC 82 CHARACTER Q ASC 113 CHARACTER @ 
a ASC 33 pide ota rat 14 CHARACTER — 
us IARACTER $ 
(i) ASC e4 poe iy ae aka ASC 115 CHARACTER # 
ne ASC 95 Serreten ASC 116 CHARACTER | 
My ASC 3E CHARACTER U ASC 117 CHARACTER - 
ie ASR 2P ChARACTER ¥ ASC 118 CHARACTER x 
bi Sree CHARACTER ASC 119 CHARACTER © 
i ~ CHARACTER x ASC 120 CHARACTER # 
| ate CHARACTER ¥ ASC 121 CHARACTER | 
ky - CHARACTER Z ASC 122 CHARACTER ¢ 
SCROLL CHARACTER [ 3SC 123 CHARACTER + 
Biss ASC 124 CHARACTER ¢ 
Ast 92 ASC 125 CHARACTER | 
ASC 33 Cneee Tee ASC 126 CHARACTER 1 
ASD oa CHARACTER J ASC 127 CHARACTER 7 
SC 34 CHARACTER + RE ROLL 
ce ChARACTER + 
a es Be CHARACTER ~ ASC 160 CHARACTER 
4 ase 9 CHARACTER # ASC 141 CHARACTER § 
‘ os CHARACTER ASC 162 CHARACTER a 
h oe CHARACTER — ASC 163 CHARACTER — 
i mec a CHARACTER — ASC 164 CHARACTER — 
y ASC ine CHARACTER ~ ASC 165 CHARACTER | 
4 ASC iaa CHARACTER — ASC 166 CHARACTER # 
hi ASC 1o4 CHARACTER | ASC 167 CHARACTER | 
i Bee Tas CHFRACTER | ASC 168 CHARACTER x 
5 aes CHARACTER » ASC 169 CHARACTER F 
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CHAPTER TEN 


f = character 3 

ASC i? CHARACTE? +f pe : character # 
RSC 172 CHARACTER y ce an character + 

ASC 173 CHARACTER 1 Rec Ad character » 
ASC i74 CHARACTER . ee 4 character ~ 

ASC 175 CHARACTER Ee 4s character . 
ASC 176 CHARACTER > a character / 
ASC 17? CHARACTER 4 ae character @ 
ASC 173 CHARACTER ~ — character 4 
ASC 179 CHARACTER 4 — character 2 
SCROLL | = at character 3 

ASC 1k4 es OT + T scrall 

“RSC 19: CHARACTER i asc 52 character 4 
ASC 182 CHARACTER 4 asc 53 character 
ASC 183 CHARACTER ~ asc 54 character : 
ASC 184 CHARACTER = asc 55 aiectae iy ae 
SC 185 CHARACTER asc 36 character 8 
ASC 186 i. asc 57 character 9 

wl 186 CHARACTER ~sigheeips aed: 

ASC 197 CHARACTER » asc 39 poten 
ASC 188 CHARACTER. » asc 59 Seana x 
ASC 199 CHERACTER 4 asc 60 fara ee 
ASC 199 . asc 6 c acai 
ASC 194 pipe: oy 2 | asc 62 character > 
at fay ~ a St 

SCROLL asc 63 character 7 
asc 64 character @ 

Now in lower case asc 65 character a 
ase 32 character asc 66 character b 
Bee ae character | asc 67 character c 
mee 34 character " asc 68 character 
asc 35 Character # asc 69 character e 
asc 36 character ¢ 320 FAS character: > 
ast 37 character ¥ asc 71 character 9 

asc 38 character & scroll 
fat So Character asc 72 character h 
d asc 40 character ¢ asc 73 character i 
; 
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asc 74 
gsc 75 
asc 76 
iva 
78 
73 
fA 
81 


fur ta du 
In in in 
TUE” CY 


ot 
Ui in 
rem 


fr ae ta 
io ty 
aon 
mm 
— =O aR 


in ive i 


rt) 

in 

a Sl a ae 
rot ip t, 


tf 


scra 


a oy oe og 

ia if in in in ia in in in i 
Ona As TL CEL Fy 
_ Oo Ww 1D er 
s Wi) Mm te hh 


ub te 
yoy 
nm 
—s 
mH 
Ta 


nit 


tas 
it 

"3 

fe 


fs tne 
in Me 
moo 
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character jj 
character k 
character 1 
character ti 
character 1 
character o 
character p 


character £ 
character ] 
character + 


a 
B 
c 
D 
character & 
character F 
character G 
H 

I 

I 

K 


ow 
fy Gt ae GY 
o 
al atte toned deel seal ceed toe oe ee 
1S WO Oo 


WoW uf 


fa cu fu if ae 


@ mm & Ge fe a: 4 
no I in We Wo Wi an if 
ti EAE ORC i tat hott reek: Ot ye 


ft oc tu cu 
a a 


TD TD PF PD TAD BO DD PQQ ee ee ee ee ee ee ee ee OD 
~~) OW OU fe 19 PO SD 4 OO Oo on ee oo fo 


i in in 
ig ela! 


ty 


fu fa fn ae 
io ite in ka nt 
i Deg Oe ee a Ge a a 
—_ 

mon 

m= 


ite 


yar va 
Woy 
a 


nm 


in ft ber 
an 


i 
m 
a See ee ee eT ee 


nm 
Mee DON A Bw Py 


SNA TA oh oh 


ee 


wow 
rm 
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character L 
character M 
character H 
character 0 


character WW 
character 
character 'Y 


Ee 

uu 

cos 

mu 

ti la 
Fe 
iT 

3 

Se | 


character 
character & 
character 3 


character 
character # 
character m 


character « 
character % 
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asc 173 character + 
asc 174 character 5 
gec 175 character . 
asc 176 character r- 
asc 177 character 4+ 
asc 178 character + 
asc 179 character 4 
scroll 

asc 188 character | 
asc 191 character 3 
asc 182 character j 
asc 182 character ~ 
ser 184 character ™ 
asc 185 character m 
asc 186 character 
asc 187 character 
asc 188 character * 
gec 189 character 4 
asc 190 character * 
asc 191 character 
scroll 


A more convenient version of this program —- which takes up 
less time and space — is as follows: 


18 REM SHOWING ASC AND CHR 

2@ FOR A=32 TO 191 STEP 49 

38 FOR B=A TO A+39 STEP 2 

35 IF B=128 THEN B=152:GOTO 45 

37 IF B=192 THEN B=22@:GoOTN 45 

. cal PRET ABC6 iCHRE CB) ; 
4 €119;B+1; i 

a font 1; TABC16) ;CHRSCB+1) 

5@ IF A=112 THEN LET A=12a 

68 INPUT"SCROLL"; Ag 

78 MEXT A 
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The TAB function in line 38 moves printing along to the 
column in the brackets, @ being the left most column. If the 
column has already been passed, the TAB is ignored. 


And this is the result of running it: 


32 33 
ce 35 # 
36 ¢ 37 4% 
38 & an 
4a ¢ 4{-.2 
42 # 43 + 
44; 45 .= 
46. Liga 
48 2 ae 
50 2 2 ie 
52 4 2 ie 
54 6 35 7 
56 8 3s? 9 
58. =C: pe 
69 < 6) = 
62 > 2°? 
64 @ 65 A 
66 B Gr. c 
68 D 69 E 
70 *F 71 = G 

SCROLL 
72 4H 73 «I 
744 75K 
76 OL a -# 
78 = 72 8 
a8 P 81 Q 
82 R 83 5S 
64 T 85 OU 
e6 V 87 WW 
g8 x eo 7 
rd Af 


ae, -£ 
FT 
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938 

168 
192 
184 
196 
188 
118 

SCROLL 
112 
114 
116 
118 
128 
122 
124 
126 
SCROLL 

168 
162 
164 
166 
168 
178 
172 
174 
176 
178 
138 
132 
184 
186 
188 


De eh ast) RP peg 


a — & 1 


a een ee 
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93 J 
95 ¢ 
37 ff 
99°«O = 
191 
143 
195 
197 
199 
{11 


113 
115 
117 
119 
121 
123 
125 
127 


161 
163 
165 
167 
169 
171 
173 
175 
17 
179 
181 
183 
185 
187 
189 


@4—+—0.¢486 ig For a a ae | 


i oe i ee 


L- 
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i9g ” 191 
SCROLL 
TESTING YOUR CHARACTER 


Our next program is a reaction tester like the one you 
experienced earlier. However, you are not just being tested on 
speed. Inthis program, you have to try and find the right key on 
the keyboard as quickly as possible. 


Make sure that SHIFT LOCK is not engaged when you run this 
program. A letter will appear in the middle of the screen. As 
quickly as you can, find that letter on the keyboard and press it. 
You will be told how long it took you, and this time compared 
with your best time. Notice how the letter which is printed on 
the screen uses CHR$ in line 4@ (find the character of the 
number, chosen at random in line 20, represented by the 
variable A), and A$ (which is the key you pressed, using GET 
which is explained a little later in the book) is compared with 
CHR$ a in line 69 to see if you were correct. 


5 POKE 36878.15:PRINT"Z" 

19 REM KEYBOARD INSTRUCTOR 

15 LET BEST=a 

2@ LET A=65+IHTCRHDC 15¥#26) 

34 LET Bea 

40 PRINT " SSeeretets WA 

5a GET AF 

6@ IF AS=CHRECAITHEN 124 

78 LET B=B+i 

BA PRINT” SBSH Sees eRe" | B 

98 IF B¢260 THEN 54 

196 PRINT" SSSORRY. TIME IS UP" 
11@ GOTO 14a 

{28 POKE36876. L28+INTCRND(19#1299 
125 FORI=1TO1@a:NEMT:POKE 36876,4 
127 PRINT" BHELL DONE, YOU SCORED” 


RRR ORR ; CHRECAD 
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13@ PRINT 2@9-B;"0N THAT ONE" 

149 IF 200-B>BEST THEN REST=200-p 
159 PRINT" MMMBEST SO FAR IS"; BEST 
168 FOR G=1 TO 16%B 

178 NEXT G 

188 PRINT" 

198 GOTO 29 


CUTTING THEM UP 


One of the really great aspects of your computer is the way it 
can be used to manipulate strings. It is called ‘string slicing’ and 
works as follows. The string (which can bea word in quotes like 
“HELLO” ora string variable, such as A$) is used with one of 
the following three statements: LEFT$, RIGHT$, MID$. For 
example, PRINT LEFT $(A$,3) would print the three left most 
characters of the string A$. If the number is greater than the 
length of the String, then the whole string would be printed. 
PRINT RIGHT$(‘“‘“HELLO”’,2) would print the two right 
most characters of the string (‘“‘LO’’). PRINT MID$(B$,5) 
would print the string B$ out from the fifth character onwards. 
A second number can be added to the statement as follows: 
PRINT MID$(‘“‘“HELLO THERE”’,5,4). This will print four 
characters of the String, starting from the fifth along 
(‘ 76) TH”. 


This can also be used to extract a single character froma string. 
Can you see how you would do this? The MID$ statement is 
used with the-first number being the position of the character 
you want in the string, and the second number being 1 to show 
that you only want one character. Thus PRINT MID$(A$,3,1) 
will print the third character of A$. As well as printing the 
strings, you can of course assign them to other strings. Such as 
LET A$ = LEFTS$(B$,3,2). 


The next program should help make this clear. The string 
variable A$ is set equal to “FIFTH*AVE” in line 19, and 
various portions of this are selected by the lines of the program. 
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Run it as it is, to see if you can follow through what is 
happening in each line: 


1@ LET Sas ee. 

3 PRINT "AS = "; 

2 PRINT "MIDSCA$,23 = ee? s 
34 PRINT "RIGHTSCA$, 4) "i RIGHTS CAS. d 
44 PRINT "MIDSCA$.6,1) 5 Rae e ie as 
S@ PRIN? "MIDS¢A$,4.4) "I MIDSCAE, 4,4 
6@ PRINT “LEFT#(A$,7) = "J LEFTSCA$, 7) 


uu i 


You’ll see this when you run the program: 


A$ = FIFTHRAYE 
MIDSCA$,2) = IFTH*AYE 


RIGHTS¢A,.4> = #AYE 
MIDS(AS,.6,13 = # 
MIDSCA$. 4.45 = TH#A 


LEFTSCA¢, 73 = FIFTH¥A 


Now change A$ in line 19 to your name, or another word of 
your choice, and run the program again. 


PUTTING THEM BACK TOGETHER : 
ter. The process 

ings can be added together on your compu 
ee strings is called the frightening-looking word 
concatenation. You can concatenate two complete strings 
together, or just add bits of them, as our next program shows: 


19 LET A$="AMERICA” 

28 LET BS="COLUMBUS" 

38 LET C#=A$+BS 

44 PRINT "A$= "JAS 

54 PRINT "RS= "|; BS 

66 PRINT "C$= "CF 

7@ LET D=INTCRNDC 15 #641) 
SQ LET E=INTCRND(1)#6+1) 
96 LET DS=MIDS(C$.0.E) 
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16 PRINT "ez Ne 

= iD 
110 LET Esenseps 
126 PRINT "Eg= "SES 


When you run this 
: 1S program, which , 
concatenat ? 1cN creates C “ 
ing A$ and B$, you’ll see results Pee ieoe Fic a 
e: 


At= AMERICA 
= COLUMBUS 

= AMERICACOLN BI 
D$= MERI : i 
E#= AMERICAMERI 


AS= AMERICA 

BE= COLLIMBLS 

C= AMERICACOL! 

D$= ICACOL es 
E$= AMERICAICACAL 
AS= AMERICA 

Be COLUMBUS 

C$= AMERICARD 

D$= RICA Saba 
E$= AMERICARICA 


PLAYING AROUND 
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{ REM NAME PYRAMID 
> REM SHOWING STRING SLICING 
3 CO¢=" teat" -POKE 36878, 15 
5 POKE 36879.6:PRINT"a". 
{@ PRINT"WHAT IS YOUR" : THPUT" MAME" » AS 
om” IF LEMCA#)>11THEN AS=LEFTS<AS. 11> 
94 LET A=LEHCAS) 
a5 PRINT TABC1@); "Ma": REM CBM SHIFT “D* 
4@ FOR G=1 TO A 
45 PRINT TABC11-G): 
5@ FOR H=1 TO 286 
6@ PRINTMIDS(COF.G71.7+1. 1); 
7@ NEXT H 
@@ PRINT 
ga POKE 36876, 129+4#6 
198 HEXT G 
119 POKE 36976.8 


MIDS¢(A$,G. 19; 


a 
MM 
ARAR 
RERRRE 
KKKKKKKK 


JIIJIIIIIISI 
ARIARRARARARARA 
rare ratararararatat 
FEEEEEEEEEEEEEEEEE 
SSSSSSSSSSSSSSSSSSSS 


95 
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‘ 
cc 
0000 
Papaeararant 
Mrrarshatarse 


andoooocoNooAA 
RRRRERRRERRRRRRR 
EEEEEEEEEEEEEEEEEE 


PLAYING IT BACK 


on final program in this chapter shows one very effective use 
a oe slicing, in which a string is progressively reduced b 
ankads When you run ECHO GULCH, you'll seea ae 
n the screen. It will then vanish Onée ith ishi 
y : as 
(and not before) you will have a limited amount arin a 
which to press the key itself. va 


If you have pressed the ri 
the letter will be replaced 
screen for a shorter time. 
will be given less time to se 


ght key, a short tune will sound and 
witha new one. This will stay on the 
ere a new letter appears, you 

It, before you’ it i 
oe Ours If you make a iiletake te Scan ee 
ie message will appear, along with your score. If you 
ge to get all of a list of letters right, you’ll be rewarded 


with a ““YOU’RE “A 
Pstie: THE CHAMP!!! message. Here’s the 


S PRINT "[)":POKE36878, 15 


16 REM ECHO GULCH ~ SHO : 
fee OWING STRING $ 


15 LET S=@ 
29 LET AS=MID$¢"ABCSDKDMBUDRC 

: ‘ CET THR 
REJKDGSHBBCDADBCEA". INTCRND¢ 13 #6+1 . 


3@ PRINT "=fetatereqarerer Pi 
tae OPER RR RBRES" || EET 
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35 FORG=1TO14#LEH CAS) ‘NEXT: PRINT "cI" 
4a GET BS 
50 IFBS<"A" OR BS>"Z" THEN 48 
55 PRINT "2 AER RRRRES” | BS 


6@ IF BS=LEFTS(AS, 1 > THENFORG=1TO1+RN 
1¢19#3@: POKES6876. 128+G : POKE36876. 255 
-G:NEXTG 

62 POKE36876,8 

65 PRINT "SPRDREREMDMRRRRRRREIA "FO 
R G=1 TO 28@:NEXT G 

70 IF BS<>LEFTS(A$.1> THEN 118 

88 LET AS=MIDSCAS, 2) 

85 IF LENCA$?=1 THEN 140 

396 LET S=S+ti 

1a@ GOTO 38 

110 PRINT" S@RREMSORR'. THAT’S WRONG" 
12@ PRINT"MMYOU SCORED";S 

138 STOP 

14@ PRINT" MMleIOU’RE THE CHAMP! !" 


The variable S, which holds your score, is set to zero in line 15, 
and line 20 sets the string variable A$ to a long line of letters. If 
you look at those letters in line 26, you'll see a 
complicated looking statement beginning with MID$ and 
including RND. This chooses a random starting place for the 
string (one of the first six characters) so you will get different 
letters each time you run it (although, of course, they will be the 
same from the starting point, but the random starting point 
gives the effect of a new list of characters each run). Line 30 
prints LEFT$(A$,1), the first letter only of the string, on the 
screen, and line 35 inserts a short delay loop, which uses the 
LEN function. This is another string function, and returns the 
length of astring, that is, the number of characters which make 
it up. LEN does not make any distinction between letters, 
numbers, symbols or spaces, as you’ll discover if you enter a 
number of PRINT LEN A$ statements, after setting A$ to 
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equal various words, symbols and sentences. Because A$ is 
reduced by one character by line 8@ each time the program 
cycles, LEN A$ is a smaller number each time, so the delay 
produced by line 35 (which dictates how long the character will 
be on the screen before it vanishes) becomes shorter. 


Line 46 uses GET to read the keyboard. GET, as you’ve 
probably worked out by this point in the book, does not 
demand that you press RETURN after touching a key. GET 
does not, in contrast to INPUT, wait until you have pressed a 
key before the program continues. If you are not touching the 
keyboard when the program reaches a GET it simply Passes 
' right through the line, reading your non-touching of the 
keyboard as the null string, (two quote marks with nothing, not 
even a space, between them, as Saad 


Line 58 looks at BS, the variable which is set equal to whichever 
key is being pressed as the program goes through line 4. As you 
can see in line 5@, you can use the greater than (> ) and less than 
(<) symbols, which we discussed in chapter eight, in 
connection with strings. These look at all elements of a string, 
and compare them in terms of alphabetical order (so 
“ZEBRA”? is less than “AARDVARK”, and “BEAST”? is 
greater than ‘“‘BEAUTY”’’). You can compare strings using 
equals (=) and not equals (< > ) as is shown in the next few lines 
of the program. Line 60 compares the key you’ve pressed (B$) 
with the first element of A$, and if they are the same, continues 
through the multi-statement line to play the sounds produced 
by the G loop. Line 65 then prints a green square on the spot 
where the next letter will appear. Line 76 compares B$ with 
LEFTS$(A$,1), and if finds they are not equal sends the 
program to lines 119 and 126 where you are told ‘“‘SORRY, 
THAT’S WRONG” and your score is given. Line 86 strips the 
string A$ of its first character, by setting A$ equal to 
MID$(A$,2). Line 85 checks to see if the length of A$ equals 
one (that is, if LEN(A$) = 1) and ifit finds that it is, goes to line 
149 to print out the ““YOU’RE THE CHAMP!!!” message. If 
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k 
not. line 9@ adds one to variable S, your score, then cycles bac 
to line 30 to print the next letter for you. 


CHAPTER ELEVEN 
READING DATA 


In this chapter we’ll be looking at three very useful additions to 
your programming vocabulary: READ, DATA and 
RESTORE. They are used to get information stored in one ‘part 
of the program to another part where it can be used. 


Enter and run this program, which should make this a little 
clearer: 


19 REM READ, DATA RESTORE 
26 DIM ACS) 

3@ FOR B=1 To 5 

46 READ ACB) 

38 PRINT ACB 

6@ HEXT B 

76 DATA 88,8392,22,32,444 


Using line 49, the Program READs through the DATA 


statement in line 7@ in order, printing up each item of DATA 
(with line 59). 


RESTORE moves the computer back to the Sirstitem of DATA 
in the Program, as you’ll discover if you modify the above 
program by adding line 55, so it reads as follows: 


16 REM READ, DATA RESTORE 
26 DIM acs> 
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36 FOR B=1 TO 5 
49 READ ACB) 


58 PRINT ACB) 
55 IF B=? THEN RESTORE 


60 
7a 


HEXT B 


It does not matter where in the program the DATA is stored. 
The computer will seek it out, in order from the first item of 
DATA in the program to the last, as our next program (which 
scatters the DATA about in an alarming way) convincingly 


demonstrates: 


1 DATA 45 


REM READ. DATA RESTORE 
TIM ACS> 

IATA 88 

FOR B=1 TO 5 

READ ACB) 

PRINT ACB) 

DATA 432 

HEAT B 

DATA 933,254 


READ and DATA work just as well with string information: 


AD? 


= 
ae ? 


» {Tt 
2 


DATA WITH STRINGS 
Q 


ta 


70 
tr 


1m) iy 
TA a oT) DT 
aM ams 


HIS, SHONS, DATA, IN. ACTION 


Wi fA de 3 Pore 


Mm i mS 


You can mix numeric and string DATA within the same 
program, so long as you take care to ensure that when the 
program wants a numeric item that a number comes next in the 
program, and when it wants a string item, it finds it: 


eS = 
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1 REM MIXED DATA 

25 FUR B=1 70 5 

3A READ AS:READ A 

40 PRINT A$,A 

SA HEXT B 

68 DATR THIS. 342, SHONS, 34, DATA. 233 
7@ DATA 1sGea BeproM pee sini 


In our next program, GALACTIC GROCE i i 
am, R, written by Tim 

Rogers, the goodies you are trading with start off their lives in 

DATA statements in lines 9900 and 9619. The relative value of 


g J 


In this program you are the Galactic Grocer, trading such 
interstellar goodies as coal dust, reject soap, aspidistras and 
zinc hub-caps. As you’ll discover, these items are in great 
demand throughout the galaxy. You start out with some 
money, and a stock of goods, provided by Galactic Grocery 
Central, and you are attempting to zap around space, tradin 
here and bartering there, to return to Central with more pede: 
On arrival, the goods in your hold will be sold for twice the 
amount you paid for them, and a tenth of the profits will go to 
you. The program is set over some 20 years, compressed into a 
quarter of an hour or so by the computer time continuum. 


Out there, in the cut and thrust of interstellar commerce you’ ll 
meet other hard-nosed Grocers from other firms planets and 
star systems. They’ll be on their way to other points in the 
Known Universe, and will be willing to trade with you. Keep in 
re — when considering purchasing anything from wily 
traders — that the point of the game, so far as you are 
GUMeeene st is to try and stockpile the really pricey merchandise 

If you don’t want to buy from, or sell to, a particular trader, 


then just press RETURN (that i 
then RETURN). (that is, you do not have to press 6, 
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Line 1@@ sets the variable PA (which will control the 
background) to zero (black), and in line 11, variable IN (which 
will control print colour) is set to 8 (yellow). The subroutine 
from line 70@@ (to which you are sent by line 120) sets the 
BORDER and background to PA and the ink to IN, followed 
by clearing the screen. On returning from this subroutine, a 
function is defined in line 130. This will be called later on in the 
program to generate random integers. Line 150 prints the 
program’s name near the bottom of the screen, and line 960 
seeds the random number generator. 


Arrays are dimensioned and variables initialised in the lines 916 
to 116@. Line 1015 makes sure the VIC is in capitals mode, 
make sure the shift lock key is off. 


The C$ array is filled with your initial supply of goods (the coal 
dust and the like) with the loop from 1648 to 1080, and a 
diagonal row of stars is printed (line 1975) to keep you amused 
while this is going on. Line 115@ ensures that around 15 per cent 
of the ‘O’ array will contain numbers generated at random 
between one and 10000 (using the function S which was, you'll 
recall, defined in line 130). More stars are printed by line 1155. 


Once the loop has been traversed, 1165 sends the program to 
the subroutine starting at 8500 which makes a few noises, and 
flashes the border at you, ending up (line 8568) with a black 
border again. Line 1179 sets the variable W (the year) to 2108, 
and 118@ sets up your starting money (variable M) to a value 
somewhere between 19900 and 20000 (using function S again). 
Line 1198 sends the computer to the subroutine from line 5000, 
which works out the value of your cargo, adding this value (J) 
to your money (M), on returning from the subroutine, sets J1 
equal to the value of your cargo (J). Line 2000 assigns values to 
the background, border and print colours, then sends action to 
the subroutine from line 7000 to put them in order. 


In lines 2048 and 2059 the year (W) and your money (M) is 
printed out. Another blank line is printed (by line 2669) then 
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the loop from 2078 to 2699 


subroutine from 3000 (where the 
assigned to B$ determines th 
(either ‘“‘BUY”’ in line 3036 or “SELL”? j 


Both B$ and S$ are used in the print lines 


“TRADER | WISHES TO SELL...” 


The year (W) is incremented in line 2150, and the next line 


elapsed since the game began. If 
they have (and W is not less than 2120, as checked by 2169) the 

€, where the final report 
is generated: “YOU HAVE ARRIVED IN PORT...” and so 
ch profit you made (line 2300). 
lated (the best profit is assigned 
asked the question “‘DO YOU 
(asked in line 2499) can be either 
, the program goes to line 
‘best profit so far’ variable, is 


on do not need to be redefined 
either, so they are missed out (the DEF FN line is before 1006). 


checks to see if 20 years have 
Program ‘falls through’ to the next lin 


on, until you are told how mu 
The ‘best profit so far’ is calcu 
to variable I). You are then 
WANT TO PLAY AGAIN?” 
acy”? oran ‘N°. If you answer ‘‘Y”’ 
1008, which ensures that I, the 
not reset in line 919. The functi 


18 POKE36978,15 
24 YS=u"x a ALLL EAL 


36 COS="s 5% ean" 

104 LETPA=@ 

11@ LETIN=8 

126 GOSUB7aga 

138 DEF FAS¢K=INTCRNDC1 x34] 

158 PRINTLEFTS(¥$,22)" GALACTIC GR 
OCER" 

$86 [=RNDC-TI> 

71@ [=a 


prints out your holdings. The string 
variable B$ is set equal to “BUY” in line 2100, and then in the 


program is directed by line 
2119) the entire buying and selling occurs. Before 390 is called 
again, by line 2149, B$ is set equal to “‘SELL’’. The word 
€ word which is assigned to S$ 
in the following line). 


from 3158, where you 
are told that ““‘TRADER 1 WISHES TO BUY...” or 
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1ga@ DIMC$¢21) 
19a5 DIMOZ<21> 
1415 PRINTCHRS(142); 
{2a DIMMAC21> 
1925 RESTORE 
1838 Pa hs 
1948 FORA=1TO2 
145 POKE36876, 153+A 
145@ sl ae 
78 CSCAD= Ae 
ies PRINTLEFTS¢ 7%. A>; LEFTSCXS, ADs "# 
{238 pattie ba 
1998 FORA=1TQ2 AAP 
119@ IFAC6 THENREADMZCA> : NEXT 
1114 MACAD=1 
1128 HEXTA 


113@ FORA=1TO21 
1135 POKE36876, 298-A 

@ READPSAS a 
1150 IFRND¢1)>. SSTHENO% (A) =FNS< 10008» 
{155 PRINTLEFTS¢7$, A) LEFTS¢x$, 22-Ad; 
" * u . 
116@ NEXTA:POKE36976,8 
1165 GOSUBS5a0 
1178 W=2188 
1184 M=198@2+FHS*< 19988) 
1198 SOSUBSa0a 
1195 Jl=J 

@@ PA=G: IN=8:GOSUB7aaa 
a 14 PRINT" SMGALACTIC GROCER v'ael 
2048 PRINT" YEAR" | TABCS? iW 3 
2a5@ PRINT"MONEY"; TABC72;"£"5M 


| 2068 PRINT 
2078 FORA=1TO21 
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2088 IFQ%(A)<>OTHENPRINTOX<(AD; TABCS); 
C$CAD 
2099 NEXTA 

2100 BS="BUY" 

2118 GOSUB3aaa 

2130 BS="SELL" 

2148 GOSUB3aga 

2150 W=bl+} 

2168 IF Wé2120 THENZAAeD 

2178 GOSLIBSaga 

2198 J2=J 

2288 PA=6: IN=2:GOSUB7aa0 

2218 PRINT"WOU HAVE ARRIVED IN PORT 


2225 2=J1:GOSUB45a8 
2238 PRINT"YOU STARTED QUT WITH" 
2235 PRINT"£";2$:PRINT"WORTH OF Goons 


2245 2=J2:GOSUB4500 

2268 PRINT" MYOU NOW HAYE £";7$ 

2276 PRINT"WORTH OF GonDsm” 

2298 V=INTS¢J2-J1>/J1i#1aa) 

2308 PRINT" YOU MADE"; ¥:PRINT"Y PROFIT 


2320 IF I<¥ THEN I= 

2340 PRINT "MEST SO FAR IS";I;"" 
RINTLEFT#<¥$,219; "DN you 

0 PLAY  AGAING" on 

2405 GETQ$: [FO$S<>"2"ANDOSC>"N" THENDAA 


2416 IFQ$="""THENI aaa 
2424 STOP 

3088 PRINT 

3819 H=FNS¢5) 

3838 S#="BuYy" 
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3040 IF BS="BUY" THENS$S="SELL" 
3045 PRINT" THERE ARE":N; "TRADERS" 
3050 PRINT"WISHING TO ";S¢ 
3855 PRINT"SOME GOODSHM" | LEFTS<7$, 22> 
jLEFTS$(X#,82"PRESS ANY KEY" 
3068 GETAS: IFAS<>"" THEH3862 
3862 GETAS: IFAS=""THEN3@62 
3965 GOSUBEAAG 
3878 FORA=1TOH 
A735 F=FNS¢3) 
3088 X=FHSC21) 
3085 IFF=1THENGOSUB4a9@: IFX=QTHEN3279 
3998 Y=FNS‘ 18988) 
3495 P=FNSCY) 
3108 Z=FHS¢198) 
3140 Z=INTCZ#PCX) 27108 
3145 GOSUB45aa 
3150 PRINT"TRADER": A: "WISHES TO" 
3168 PRINTS$;P; "TO"; 
3178 PRINTCS(X);" AT £°5 2 
3188 PRINT"EACH” 
2198 PRINT" (YOU HAYE £"5M;")" 
3195 PRINT"CYOU HAVE" 026K) CHCRIG NO" 
3208 GOSUB?7 S08 
3205 PRINT"HOW MANY TO "> BS:U$=""> INP 
UTUS 
3219 IFUS=""THENS278 
3215 U=¥ALCUS) 
3228 IFUCPORUDYTHEH3288 
3225 IFBS="SELL"THENU=-U 
3238 IFUC-0%¢%) THENS288 
2249 IFM-UKZ<=@THEN319@ 
3258 M=M-LKZ 
3268 O%CK=OKCAD+U 
3278 NEXTA 
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3275 IFN=QTHENFORH=1To3A0: 
3288 RETURN rae ta 
4920 PRINT "TRADER "SA; "SRYS:—" 
42 RINT"WHAT DO YOU WANT TO": PRINT 
4020 Z$=": INPLITZ$ 
25 IFZ$=""THENY=a:p 
4030 FORB=1T021 tis 
4040 IFZ$=MID$ccscRy, myc 
4040 IFze-HtDs 40B), LENC2$) 9TH 
4050 NEXTB 
4062 PRINT 
4980 GOTOsa20 
410Q IFRNDC19<¢. STHENM=B: RETUR 
. ‘e ae He, ¥ H 
4112 PRINT"SORRY, TRADER";A; "DOES" 
4115 PRINT"NOT WANT ANY" 
PRINTMID$¢C$(B) .MYCRD) i= 
4130 RETURN rae 
4500 2$=STR$(Z) 
4510 FORR=1TOLENC2S) 
MID$(Z$,R,1=", "ANDR=L Eb 
4520 IFr 15", "ANDR=LENC2$9TH 
4538 JFMIN$(Z$,R,19=". "annp= ; 
Rewer. 19=", "ANDR=LENCZ$ 3-4 
4549 HEXTR 
4550 RETURN 
5009 J=o 
5916 FORA=1T021 
5028 J=J+0x(ADeP (ADK? 
5030 NEXTA 
5040 J=J+M 
5050 RETURN 
708 POKE3E879. PAe6+PA4S 
7018 PRINTMIDSCCO$, IN, 19: "=": 
7048 RETURN ie 
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7508 WO=FNS(20>-FNS¢28) 

7518 POKE36876, 289+N0 

7520 POKE36876; 209+N0 

7538 POKE36876, 8: RETURN 

ga@8 IFS#="SELL"THENPA=3: IN=1 :GOSUIB7@ 
@@: RETURN 

8018 PA=2: IN=2:GOSUB7a0e 

g@2@ RETURN 

9508 POKES6S879, (PEEK(36879>AND248>0R2 
8518 POKE36S76. 138 

8528 POKES6879, (PEEK (36879 AND24820R7 
8538 POKE36876. 152 

9549 POKES6979. (PEEK(36879AND24S20R5 
g55@ POKE36976, 148 

9568 POKES6879. “PEEK (36879 >AND248> 
8578 POKE36976, 9: RETURN 

9998 DATATONS COAL DUST. CMT ORANGE PE 
EL: KG GRAIN.GALLONS SILICON INK 

9985 DATABARS REJECT SOAP. SMARTIES. Ex 
-DICTATORS, TEST-TUBES, TY SETS. FISH 
9018 DATAMISSILES.ASPIDISTRAS. MATCH H 
EADS, SLIPPERS: CHIPPED MUGS.ZINC HIIB-C 
APS 

9915 DATATOE NAILS,PEN TOPS.PAPER BAG 
§, BADGES. NOISES 
9928 DATAG. 5.4.9.6 
9024 DATALZ. 198.3,38 
3,1000;4,.1,5,1.551 


£0.3,0.1,15.1,258, 
0,1:8.2,0.1:3,23 


CHAPTER TWELVE 
WONDERS OF THE 
VIC CHIP 


Your computer has a chip inside it known as the VIDEO 
INTERFACE CHIP. The VIC takes its name from this chip, 
_ which handles the screen display, the sound, and joysticks etc. 
Remember in chapter seven we introduced the idea of registers 
when discussing the sound, we shall now introduce more 


registers. but first, it might be an idea to introduce something 
known as binary arithmetic. 


If you feel this next bit is going to give you a headache, just 
move to the later stages of the chapter and come back to the 
theory when you feel more confident. 


Computers, and your VIC is no exception, think in a number 
system known as binary. In binary, each digit can be either a 1 
or a@. Each digit is referredtoasa bit, and it is common to use 8 
or 16 bits. Normally, the right most digit is the units, the next is 
the tens, the next the hundreds etc. Notice how this is going up 
in powers of ten. In binary the right most digit is one, the next is 
two, the next is four, the next is eight etc. Notice how this is 
going up in powers of two. This is why normal numbers are said 


to be in base ten (denary), and binary numbers are said to bein 
base two. 


Imagine an eight bit number, where each bit is a column. We 
will place a 1 in a column if we want to include the 
corresponding power of two, otherwise we will use a 9. For an 
eight bit number,the powers of two range from @ to 7, and are: 
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if a 1 was placed in each 
16, 32, 64, 128. As youcanseeifa 
on and all the powers of two added, the highest number 
stored in an eight bit system would be 255. 


The first ten numbers in binary are: 


NUMBER 27! 20:2001S> a@tion oF atin.2? 202% 5 9 
es Aaa «ie ails (cyl aden: ala Slee 
6 6 8 
ri "7 i) ") V1) 
1 Bhi Bit jn i id ieee 
2 ee Pep se pees Reem at sn we 
3 eects Bthiw Best 6 “o 
4 Agee oa: ee ape 1 
5 4) Y) V7) 9 9 ; : 6 
6 Beit eaitebin age, camsins VEY ag 
7 Pe ge ee ae aa 
8 Aa ee ee a ae Bs 
254 te ce See ee ee 
255 Pes Ps Ans 


Do you understand it now? No, then read it again, but Ree 
Your VIC has a large number of memory locations Soci 
between 9 and 65535. Some of these you can store numbers x 
(known as RAM), others you cannot alter SOM; hee 
i j tored there (known as fi 
computers instructions are stor Meow bib eae 
me are just empty spaces which may be fi 
catiabes into the back of your VIC. The ones we are lasso 
in are in the RAM (random access memory, because you ca 
access what you like). All of these ve com ee see 
i its (that’s wha’ 
bytes and are composed of eight bits ( 
pe Sometimes the VIC combines two bytes e it je weer 
i ‘bi — the number o 
sixteen bit numbers (up to 65535 
locations), but that’s not important right now. You ue 
any of these memory locations with the function — es 
This returns the memory stored in memory location (calle : 
address from now on) whose number is N. This has acomman 
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related to it: POKEN,P. This stores the number P (which must 
be between @ and 255) in address number N.POKE will only 
affect RAM, whereas PEEK will look at any address. Some 
areas of RAM the computer uses for itself , Others are used for 
storing your program and variables in coded form, and others 
are used for storing the screen and colour displays. For this 
reason you should be careful where you POKE (!). If you upset 
the computer too much, you may have to switch off and on 
again. You can never damage your computer with POKE, but 
you can easily destroy any program you have in. Don’t let this 
worry you though, experiment around and see what wonderful 
effects you can achieve with this command. 


_. And now, back to binary. You’ve already met the statements 
AND and OR which were used to combine conditions in an 


IF... THEN statement, they also have a different use in 
binary. 


In binary, if we AND two numbers together, the corresponding 
bits of each number are compared and if both the first AND the 


second are one, then the result is one — otherwise the result is 
zero for that bit. 


Example 98 AND 174 
91190010 98 


AND 19191110 + =174 
GIVES 90190010 34 


If we OR two numbers together, the corresponding bits of each 
number are compared and if either the first OR the second is 
one, then the result is one — otherwise it is zero. 


Example 98 OR 174 


81190016 98 
OR 19191118 174 
GIVES 11101110 238 


There is another one, although not used as often as the others 
we may as well mention it here. It is called NOT. 


If we NOT a number, allits bits are reversed, i.e. all ones turnto 
zeros and all zeros turn to ones. 
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Example NOT 98 


NOT 91100010 = 98 
GIVES 10011101 157 


The VIC chip (we hadn’t forgo ited ee ty ied i eerie 
i i ter. ese 
ol registers which you can a I : 
Rai facade except that storing things in them creates 


special effects. 


THE VIC REGISTERS 


There are sixteen registers in all, but some i ee pie 
one function by splitting into two parts. The adc oe Oa 
register will be given, together with a descripti 


functions. 


ADDRESS DESCRIPTION 
peeve 36864 The high bit of this register determines 
whether the VIC will be in interlace 
mode or not. When in interlace mode, 
the VIC picture can be mixed with a 
picture from another source pene 

re using the right equipment. 
mail it on: POKE 36864, PEEK(36864) 
AND 127. This leaves bits @—6 alone 
but replaces bit 7 with a zero. To turn it 
on: POKE 36864, PEEK(36864) OR 
128. This leaves bits @—6 alone and 

replaces bit 7 with a one. 


Bits @—6 determine the horizontal 
position of the main picture on the TV 
screen. The normal value is 12. The 
bigger the value, the further to the right 
the image appears. Remember that the 
value can be between @ and 127 with 6 
bits. If N is the position of the screen 


type: 
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1 


2 
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36865 


36866 


36867 


POKE 36864, (PEEK(36864)AND 128) 
ORN. 


This resets bits @—6 to zero but leaves bit 
7 alone. Bits ®@—6 are then replaced with 
N. 


All eight bits are used for this one (@—7), 
which determines the vertical position 
of the picture on the screen. The value is 
normally 38. The bigger the 
number, the further down the image 
appears. You can move the image by 
two dots (often called pixels) at a time. 
Therefore a value of 24 would move the 
display up by two dots. If N (between 9 
and 255) is the position of the screen, 
type: POKE 36865, N. 


The high bit of this register is used with 
register 5, and will be described there. 


Bits 6-6 determine the number of 
columns on the screen (normally 22). 
Numbers over 27 will give a 27 column 
screen. The cursor controls will not 
work normally if you alter this, as they 
are based around a screen of 22 
columns. If N is the number of columns 
(between @ and 127), type: POKE 
36866, (PEEK(36866) AND 128)ORN. 


Bit 7 is used with register 4, and will be 
described there. 


Bits 1—6 determine the number of rows 
on the screen (normally 23). If this is set 
greater than 23, strange things will 
appear at the bottom of the screen (this 
is known as garbage — a rather general 
term used to mean anything you don’t 
want). If N is the number of rows, type: 


36868 


36869 
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POKE 36867,(PEEK(36867) AND 129) 
OR (N*2). This leaves bits 7 and @ alone, 
and replaces bits 1—6 with N. Notice 
how N has to be doubled in order to 
change it from bits 6—5 to bits 1—6. 


Bit @ is used to determine the size of the 
characters on the screen. Normally they 
are made of 8 by 8 pixels, but when this 
bit is set to a 1, each character is 
composed of 8 dots across by 16 down. 
The use of this will be conde te fe 

ter fourteen. To set normal height, 
ie POKE 36867, PEEK(36867) AND 
254. To set double height, type: POKE 
36867, PEEK(36867) OR 1. 


This register forms bits @—7 of a9 bit 
number, the high bit out of register 3 is 
used for bit 8. The resulting number is 
known as the raster value, and is used to 
synchronize the light pen with the TV 
picture. 


This is a hard one. Bits 4—7 determine 
which part of memory the VIC stores 
the screen image. Bit 7 MUST bea 1. Bit 
7 of register 2 is bit 9 of the screen 
address, and bits 4—6 of register 5 form 
bits 10—12 of the address of the screen. 
To work out where the screen starts in 
memory, use the formula: 


LET S=4*(PEEK(36866) AND 128) 
+ 64*(PEEK (36869) AND 112). 


Bit 7 of register 2 also has another 
purpose. If it is a @, the colour starts at 
address 37888, otherwise it starts at 
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36870 


36871 


36872 


36873 


36874 


address 38400 (this is what it normally is 
for the unexpanded VIC). A formula 
for calculating the start of colour 
memory is: 


LET C=37888 + 4*(PEEK(36866) 
AND 128). 


Bits @—3 determine where the computer 
gets its information about the shapes of 
the characters. Normally this points to 
an area known as the character 
generator ROM, where both the VICs 
character sets are stored. To design your 
own characters you must make this 
point into some spare RAM where you 
have stored your characters. This will be 
discussed in chapter fourteen. 


This contains the horizontal co- 
ordinate of the light pen, from the left of 
the screen. 


This contains the vertical co-ordinate of 
the light pen from the top of the screen. 


This contains a value between @ and 255 
for game paddle X. 


Same as above, but for paddle Y. 


The high bit (bit 7) switches the bass 
voice on (voice 1). This is why the four 
voice registers must be POKEd with a 
value greater than 127 to produce a 
note, the high bit of each register must 
be a | to enable the voice. 


11 


12 


13 


15 


36875 


36876 


36877 


36878 


35879 
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Bits @—6 are proportional _to the 
frequency of the note, i.e. the higher the 
number, the higher the note. 


The high bit switches the alto voice on 
(voice 2). 

Bits @—6 are again proportional to the 
frequency, but one octave higher than 
voice 1. 


The high bit switches the soprano voice 
on (voice 3). 


Bits @—6 are proportional to the 
frequency, but one octave higher than 
voice 2 (i.e. two octaves higher than 
voice 1). 


The high bit switches the noise on (voice 
4). 


Bits @—6 are proportional to frequency. 


Bits 4—7 determine the auxiliary colour, 
which is used with multi colour 
graphics. It can have a value between 9 
and 15 (that’s sixteen colours). If N is 
the value then type: POKE 
36878, PEEK(36878) AND 15 OR 
(16*N). 


Bits 6—3 correspond to the volume of 
the sounds. @ is silence, and 15 is 
loudest. If N is the volume, type: 
POKE(36878) AND 240 OR N. 


Bits 4—7 determine the background 
colour of the screen (one of sixteen 
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colours numbered @—15). If N is the 
value, type: 
POKE 36879, PEEK(36879) AND 249 
ORN. 


Bit 3, when set to a 1 causes normal 
display, and when set to a @ causes 
reverse mode. In this mode, all 
characters on the screen will appear 
reversed, they will still have the same 
codes as in normal mode, because it is 
entirely independent of the reverse 
mode caused by a control code. To turn 
on reverse mode, type: POKE 36879, 
PEEK(36879) AND 247, to turn it off, 
type: POKE 36879, PEEK(36879) OR 8. 


Bits @—2 set the colour of the screen 
border (one of eight colours numbered 
0-7). If N is the value, type: POKE 
36879, PEEK(36879) AND 248 OR N. 


That concludes the overview of the VIC chip, now for what 
you’ve been waiting for: 


LIVING MORE COLOURFULLY 


or WHERE YOU SHOULD COME TO IF YOU 
MISSED OUT THE HARD STUFF 


You have a colour computer on your hands, and you should 
make the most of it. We’ll start our investigation of ways of 
improving your programs by referring back to the FAST 
FOOD program which was first introduced in chapter four. 


We have been using colour in many of the programs you’ve 
encountered so far in this book, so you may well have a pretty 
good idea of how to use the facilities. You’ll see the names of 
the colours above keys | to 8. There is another way to use these 
colours without having to use control codes. This involves the 
POKE command once again. Imagine that whenever you use 
the POKE command for colour, the colours are numbered @ to 
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i i i 1 from the 
7 (sometimes @—15) instead of 1 to 8 (i.e. subtract 
oe on the colour key). The first method is to type POKE 
646, N where N is the number of the colour. 


Here’s a version FAST FOOD which chooses colours 
randomly before the PRINT statements: 


ig REM FAST FOOD WITH COLOUR 

15 POKE36879,8:PRINT"2"; = . 
30 PRINT"ENTER RANDOMIZE": IMPUT"SEED 
; A: IFAS@THENA=-A 

25 A=RNDCAD 

30 A=INTCRMDC 1 #441) 

35 B=INTCRND¢1)#5+2) ih 

37 PRINT"MWA IS";A:PRINT"B [5"s8 ‘ 
4@ POKE 646. B:PRINT"YOU’YE ORDERED 

5@ IFA=1 THEN POKE646,B/2:PRINT"A HAM 
BURGER WITH THE LOT" : 

6@ IFA=2 THEN POKE646,B+1:PRINT"A LAR 
GE FRENCH FRIES" 

7@ IFA=3 THEN POKE646,B+1:PRINT"A SER 
¥E OF RIBS" 

9@ IFA=4 THEN POKE646.B:PRINT"TWO HOT 


DOGS WITH KETCHUP” 
9@ FORI=1T040@: NEXT 
198 GOTO 28 


The background colour can be any one of sixteen, and is stored 
in VIC register 15. The sixteen colours are as follows: 


LACK 8 ORANGE 
: WHITE 9 LIGHT ORANGE 
2 RED 16 PINK 


11 LIGHT CYAN 

12 LIGHT PURPLE 
13 LIGHT GREEN 
14 LIGHT BLUE 

15 LIGHT YELLOW 


3 CYAN 

4 PURPLE 
5 GREEN 
6 BLUE 

7 YELLOW 
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Incidentally, the first eight colours are the ones normally 
used for the colour of the text your VIC prints in. You can 


see all this in action with the following program: 


1@ REM TEXT AND BACKGROUND 
28 INPUT"BACKGROUND COLOUR"; B 
_ 38 INPUT" TEXT COLOUR"; T 
4@ POKE646. 7: PRINT" Te" ; 
45 POKE36879,PEEK(36879,ANDI5 OR 
35@ PRINT"I AM PRINTING IN COLOUR"; 
6@ PRINT" MMOH BACKGROUND"; B 
7@ FORA=1 T0989: HEXTA 
88 RUN 


To set the background to colour N (between @ and 15), type: 
POKE 36879, PEEK(36879) AND 15 OR N*16. 


ee border colour can only be one of the first eight, and is 
eld in the same register as the background colour. To 
change to border colour N (between @ and 7), type: 


POKE 36879, PEEK(36879) AND 248 OR N. 


This variation on the previous program demonstrates: 


1@ REM TEXT, BACKGROUND AND BOR 

2@ INPUT"BACKGROUND COLOUR"; B a 
38 INPUT"TEXT COLOUR"; T 

35 INPUT"BORDER COLQUR"; BC 

48 POKE646, 7: PRINT" ZHDetal" ; 

45 POKE36979.PEEK( 36879 ANDIS OR 

47 POKE36879, PEEK( 36879 ,AND248 OR Bo 
S@ PRINT"I AM PRINTING IN COLOUR";T. 
66 PRINT"MMON BACKGROUND"; B 

63 PRINT"EWWITH BORDER"; BC 

74 FORA=170988:NEXTA 

88 RUN 
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Enter and run the following demonstration to see the colour 


range of your computer: 


19 REM RANDOM PAINTING 

15 POKES8S78, 15 

28 LET A=INTCRMDC1)#16) 

34 LET B=IHTCRNDS15#8> 

4g IF A=B THEN 36 

5@ LET C=INTCRND(12#92 

6@ POKE646.B 

65 POKES6879.PEEK(36879ANDIS OR A¥16 
67 POKES6879,PEEK(36879 AND248 OR C 
78 FORD=32 TO 52 

88 PRINTTABCRND( 19#22) 5 CHRECD) 

9@ POKE36376. 130+D:NEXTD 

{@@ POKE36876.4:FORE=1T0300:NEXTE 
114 GOTO 28 


Remember how, not so long back, we mentioned there was 
another way to change the colour of the text and graphics on 
the screen. Your VIC stores in its memory, the position of 
everything on the screen. Because there are normally 23 lines 
of 22 columns each, there are 506 positions on the screen 
(23*22 = 506). Each of these positions has a corresponding 
‘byte’ or location in memory to decide what character is 
stored there. Each location can hold a number between @ and 
255, each number is a code for a character (be careful — this 
is not the same as the ASCII code mentioned earlier). This 
code is listed in your users guide. On the unexpanded VIC, 
the top left hand location is numbered 7689 and as you move 
across the right of the screen, the locations increase by one. 
When you get to the far right, you go back to the left but a 
line further down. Because there are 22 columns, to stay in 
the same column but move up or down one line, you must 
subtract or add 22. To move left or right, you must subtract 
or add 1. If X is the horizontal coordinate from the left 
(@—-21) and Y is vertical coordinate from the top of the 
screen (@—22), the position to POKE can be found by: 
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P=7686 + Y*22 + X 


There is an area of memory very similar to the one above, 
which refers to the colour on the screen. On the unexpanded 
VIC, the top left hand location is number 38490. Using the 
above coordinates, the position to POKE can be found by: 


P=38400 + Y*22 + X 
This is demonstrated by the program below: 


1@ REM POKING THE SCREEN 
28 PRINTS)"; 

38 REM RANDOM COORDINATES 
35 REM Y (8-22) 

49 LET Y=INTCRNDC1)#23) 
45 REM % (8-21) 

34 LET A=INTCRND(1)#22) 
30 REM COLOUR CRED? 

68 POKE 38480+7#22+K, 2 

65 REM CHARACTER ¢BALL-CODE 81) 
7@ POKE 7680+'#22+%, 91 

$4 GOTO 4a 


Now to explain the use of things like colour more fully, we 
are going to take a simple program, and gradually elaborate 


it, showing how adding such things as border flashes and 


user-defined graphics can add a great deal of interest to your 
programs. At the end of this section, we’ll give you a couple 
of suggestions to apply if you wish to keep improving and 
elaborating the program. 


The program we’re going to use as the core of our 
development work is a standard ‘Duck Shoot’ program, in 
which little objects fly across the screen, and you have to try 
and shoot them down. In the first version of the program, 
the little objects are letters chosen at random, and you are 
the letter ‘‘X’’. You fire at the “‘ducks”’ by pressing the ‘‘M’’ 
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key, and you move yourself left using the ‘‘Z’’, and right 
using the ‘‘C’’ keys. 


Although there is no time limit on this program, there is a 
limit on the number of shots you can fire. In all of the 
versions of this game in this part of the book you’ll see (line 
39) the program starts with a limit of 15 shots. In the last, 
most complex, version you will have 50 shots. The number 
of shots is deliberately kept low in the first version so you 
will not be able to get a high score just by leaving your finger 
on the ‘‘M’’ key, and waiting for the ducks to fly into the 
line of fire. 


Here, then is the first program. Type it into your computer, 
and press RUN then RETURN, to get it underway. 


NI 
(2 ¥$="\ORDOORORDRRDORRORRRRD" 
2@ LET SCO=O:PRINT"7"; :POKE65Q, 255 
3@ LET SHOTS=15 
4@ LET A$="ZAB DK SL DF GFD FGG " 
5@ LET ACROSS=18 
5@ LET DOWN=15 eee 
NTLEFTS$C¥$, 8); 
Fe POTATLESTECWS. Hebi iL EETSCRE ROROG 
S-1);" % ":GETKS 
38 IFK$<>"M"THENIGO 
95 SHOTS=SHOTS~1 : IFMID$<A$, ACROSS, 13= 
* “THENIGO 
37 SCO=SC0+57 : AS=LEFTS<(A$, ACROSS-1)+" 
"4M 1D$¢ R$. ACROSS+1) 
190 PRINT" HSCORE :"; SCO; TABC12) "SHOTS: 
gala sce LEFT 
HTT " T " 
ie SE aunreci TENPRINTLER TSHR. 1137" 
HAT’S THE END OF THE GAME" :STOP 
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128 ACROSS=ACROSS+(K$="2"-CK$="0"5 
138 AS=MIDSCAE, 23+LEFTS(AS, 1) 
148 GOTO 78 


You'll see the letters which are held in A$ (see line 49) 
moving across near the top of the screen. You (the ‘‘X’’) will 
be in about the middle of the screen when the program 
starts. You can — as I mentioned a few moments ago — 
move yourself back and forth using the ‘‘Z’’ and ‘‘C”’ keys 
to get yourself into the position which you think gives you 
the best possible chance. When you judge a ‘‘duck’’ is 
directly overhead, press the ‘‘M’’ key to fire your patented 
anti-duck missile. The number after the words SHOTS 
LEFT (in the top right hand corner of the screen) will 
decrease, and if you have been accurate, the number after 
the word SCORE in the top left hand corner of the screen 
will increase. 


Note, by the way, that we have deliberately used explicit 
names for the variables within this program. This is, the 
variable name for the scores is SCORE, for shots left it is 
SHOTS, for your position down the screen DOWN, and for 
your position across the screen, the variable name is 
ACROSS. Even though it takes a little longer to type long 
variable names into a program and (of course) they use up 
more memory than do shorter names, you must be careful 
about this, the advantages of using explicit names to keep the 
purpose of various parts of the listing clear outweighs the 
extra time it takes to type them in. Remember though, your 
VIC only takes notice of the first two characters of a variable 
name. You must also be careful that the name does not 
contain any BASIC key words. If, for example, you were 
writing a program like this and decided that it would be 
better if the ‘‘X’’ was printed slightly further down the 
screen, you would not have to search through the program to 
work out which variable held your ‘“‘down’’ coordinate. If 
you had used the explicit names as in this case, you would 
find it very easy to locate the variable you were looking for. 
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Run the DUCK SHOOT program a few times, then return to 
the book for the first part of our discussion on it. 


Line 4@ defines the string variable A$ as a long series of 
letters and spaces. The letters can be anything you like; don’t 
feel you need to copy ours. The important thing, however, is 
that the string is 22 characters long. You can check this by 
running the program briefly, stopping it with BREAK 
(RUN/STOP), then typing in as a direct command, PRINT 
LEN(A$). If your string is the correct length, PRINT 
LEN(A$), followed by RETURN will give you the answer 
22% 


rance of movement given to the ducks is created 
E Me eacanunodore BASIC’s string-handling commands 
which were explained a little earlier in the book. Refer back 
to this section now if. you need to remind yourself of how 
they work. The vital line for the moment is line 130, which 
resets A$ equal to all of the string without its first character, 
that is, MID$(A$,2), and then adds to the very end of it the 
character of the string which was at the beginning, 
LEFT$(A$,1). The string is reprinted, over and over again, 
as the program runs (by line 7@) in the same position, at 8,0 
(8 lines down, and starting hard in the left hand margin), and 
because the string is in effect being ‘shifted along’ one 
character at a time before it is reprinted, the elements in the 
string appear to move smoothly along. Using strings in this 
way is one of the simplest ways there is on your computer to 
create smoothly moving graphics. 


The string handling also makes it very simple to cause the 
shot duck to disappear from the sky. As the string is 22 
characters long, each character ‘‘shot”’ can be referred to by 
MID$(A$,N,1). That is MID$(A$,1,1) is the first element of 
the string, MID$(A$,2,1) is the second one and so on, until 
MID$(A$,22, 1) is the very last spot within the string. 
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Look at line 98. When the computer comes across an 
IF/THEN statement — as you know — it checks to see if it 
is true. If it finds that it is not true, then it moves along to 
the next line in the program, without bothering to carry out 
any further instructions which may be on the same line. If 
the computer finds, at the start of line 98, that K$ does not 
equal *‘M”’ (that is, you are not pressing the ‘‘M’’ key) then 
it jumps to line 108, otherwise it continues straight to line 95. 
Here it decrements the variable SHOTS by one. Then it hits 
another IF/THEN condition, which makes use of the 
Commodore BASIC to isolate an element of a string 
instantly. It looks at MID$(A$,ACROSS, 1). The ‘*X’’ which 
is you is printed at ACROSS (actually, as you see in line 80, 
a three-element string, with a space either side of the ‘“‘X”’ is 
printed at ACROSS minus one, which has the effect of 
printing the ‘‘X’’ at the position referred to by the variable 
ACROSS, so MID$(A$,ACROSS, 1) lies directly above you. 


If line 95 discovers that MID$(A$,ACROSS, 1) is a space, 
you have missed, so the program jumps to line 100. 
Otherwise the variable SCO is incremented by 57 and, finally 
in line 97, that element of A$ is set to a blank, so the “‘duck”’ 
disappears. 


Now all this takes some time to explain, but you will find the 
computer does it apparently instantaneously. You press 
*“*M”’ the score increases by 57 (if you’re a good shot), the 
number of shots left drops by one, and the duck disappears. 
You'll see (line 110) that the program continues until you run 
out of shots, when the game terminates. Take note of your 
score at this point, and see if you can beat it in subsequent 
runs. 


Once you have the program running to your satisfaction, and 
you have a pretty good idea of how it works, modify it to 
read like the following program. You do not have to NEW 
the computer. Just compare the program you have in your 
computer, line by line, with the next listing and make any 
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changes you need to, by adding a complete new line 15, and 
modifying certain other lines. 


1@ REM DUCK SHOOT 

11 UDSTDSTATE 

{2 XS="IERDRRRERRERRERSRRREDEI 

15 POKE3S5379, 25 

26 LET SCO=@:PRINT"IFa"; :POKE6S@, 255 

3@ LET SHOTS=15 

4@ LET A$S="ZAB DK SL DF GFD FGG " 

5@ LET ACROSS=14 

6@ LET DOWH=15 

78 POKE646, INTCRND<1)#6+2) : PRINTLEFT$ 

CY$, B95 AF 

30 POKE646.2:PRINTLEFT$¢7$, DOWN) ; LEFT 

$(X$,ACROSS-1)2" 4" GETKS 

98 IFKS<>"M"THEH1a@ 

95 SHOTS=SHOTS-1 : IFMIDS¢A$, ACROSS, 135 

" "“THEN186 

97 SCO=SC0+57 : AS=LEFTS<(A$, ACROSS—1>+" 
"+M IDSC A$, ACROSS+1 > 

198 PRINT" M@SCORE:";SC0; TABC12)"SHOTS 
SHOTS; * 

195 PRINTTABC12)" @LEFT" 

i1@ IFSHOTS<CITHENPRINTLEFTS¢Y$, 1195 °T 

HAT’S THE END OF THE GAME”: STOP 

i2@ ACROSS=ACROSS+(K$="Z"9-CKS="C") 
13@ AS=MIDSCAS, 29+LEFTSCAS, Lo 

14@ GOTO 72 


Now when you run this, you’ll see an immediate and quite 
striking improvement. Colour certainly adds a lot to any 
program on this computer. Line 15 sets the background 
colour to white, as well as the border, clears the screen and 
sets the foreground colour to red. 
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Even if we had done nothing else there would be a 
significant improvement in the program, the colours are far 
more interesting than a two tone display. 


However, we want to add two more commands to the 
program which will alter the display for the better. These 
are in line 76 and 100. The RND function is used to choose 
a colour at random for each time the ducks and your score 
are reprinted. As you’ll see when the program is running, 
the change occurs so rapidly the ducks appear to shimmer 
through the spectrum as they fly across the screen, and 
even though it takes the computer an appreciable time to 
generate a random number, the effect on the speed of the 
program appears to be nil. 


You are probably aware that, in moving graphics 
programs, everything you get the computer to do — from 
making an IF/THEN decision, adding two numbers 
together, raising one to the power of the other, to 
generating a random number — takes time, and the more 
you get the computer to do before each subsequent frame 
of a moving graphics program is printed, the more slowly 
the graphics will move, and the more jerky they will 
appear. 


Apart from the colour changes we’ve discussed, the 
program is the same as the first listing. However, you can 
see that the few changes we have introduced have improved 
it considerably. We’ll now continue with the improvements, 
by adding some sound, and getting the BORDER (the area 
around the picture) to flash when a duck is shot. 


Enter this next version of the program, run it to decimate a 
few flocks of ducks, then return to your book for a 
discussion on the program. 
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18 REM DUCK SHOOT 


{2 4$="I0NDDRODORRODSRRORRARRE > UN 
{5 POKE36379. 25 

28 LET SCO=@:PRINT"CRS": :POKE65@. 255 
22 ¥Yi=15:¥2=15:$1=8: $2=8:53=0°34=0: DU 


25 FORG=17024 : 52=G+200 : GOSUBS@GG : NEXT 


38 LET SHOTS=15 

35 S2=@:FOR G=S@TO2@STEP-2 : $3=209+6'G 

OSUB9GG8 : NEXTG : S3=8 

4@ LET A$="ZAB DK SL DF GFD FGG ' 

5@ LET ACROSS=16 

6@ LET DOWN=15 

70 POKE646, INTCRMD¢ 19#6+2> : PRIHTLEFT$ 

(Y#, 89 AS: S2=129+ASC CAS) : GOSUESAAA : S2 

=8 

$8 POKE646,2:PRIMNTLEFTS¢7$, DOWN); LEFT 

$(X#,ACROSS-1);" % "= GETK$:S3=19@+ACR 

OSS: GOSUBSEaa 

pe M4" THEH198 

9@ IFKS<>"M" 

35 $3=158+SHOTS#3 : GOSUBS88G : S3=0 : SHOT 

S=SHOTS~1: IFMIDS< A$. ACROSS. 15=" "THEN 
a (ang oe aL 

97 SCO=SCO+57 : AS=LEFT#<AS, ACROSS-1)+ 
"4+MIDSCAS, ACROSS+1 >: S3=289-SHOTS : GOS 

UBSB8G : S3=8 

98 POKE36879. PEEK (36879 ANDZ480RRNDC 1 
2#8 : POKE36879, PEEK 369879) AND24SORRND¢ 
19#8 

a8 POKE36279, PEEK (36879 )AND2430RRHD¢ 1 
3#8 °° POKES6879., PEEK (36879 ANDZ4S0R1 
189 PRINT" S@SCORE:"; SCO; TABC 129 "SHOTS 


129 


og 
Ss gS ee 
corse & 


130 GETTING STARTED ON YOUR VIC 20 


‘> SHOTS; " 

1@5 PRINTTABC12>" SLEFT" 

11@ IFSHOTS<1THEMPRINTLEFTS¢¥$, 1195 "T 
HAT’S THE END OF THE GAME": STOP 

126 ACROSS=ACROSS+(K$="Z"9-CK$="C") 
138 AS=MIDSCAS, 29+LEFTSCAL, 1) 

148 GOTO 78 

2999 REM SOUND ROUTINE 

9809 POKE36878, PEEK (36878 AND24a 

9885 POKE36874.$1:POKE36875. $2 :POKE36 
876,S3:POKE36877,S4 

9018 D¥=(¥2-¥1)/DU 

9615 FORT=2TODU 

3028 Yi=V1+D¥: PQKE36878. PEEK (36878 >AN 
D248 OR 1 
9638 NEXT] :POKE36878. PEEK (36879) AND24 
B 

9049 POKE36874,4:POKE36875. 8: POKE3687 
6:8: POKE36377,a 

3059 RETURN 


The new lines are 25 and 35 which use the sound routine to 
create two “‘loops’’ of sound before the program gets 
underway. Refer back to the section on sound if you wish to 
refresh your memory at this point. 


Line 25 is a loop, using G as the control variable. The loop 
runs from one to 2@, and each value of G is used in the 
second part of line 25 to create a tone, which — because G is 
increasing — rises rapidly. The duration parameter is set at 1 
which is close to the shortest sound which we have found 
which can be heard clearly. Line 35 produces another loop, 
this time counting downward. You’ll discover that different 
STEP sizes produce quite different types of loop effects, and 
you may well wish to change the STEP in both this line and 
in line 25. 
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These two loops, however, are little more than ‘‘window 
dressing’ designed to produce a good starting effect. The 
other beeps used by contrast, are related to other things 
happening within the program when it is running. You’ll see 
that a sound call has been added at the end of line 70. This 
takes the ASC (the number which the computer uses to refer 
to the character being printed, so PRINT CHR$(42) 
produces character 42, which you can look up on the 
ASC/CHRS$ section earlier in this book) of the first element 
of the string A$, that is the element which is further to the 
left, and creates a tone from this. The effect of this is to 
produce a short ‘‘beep’’ just before a duck flies off the 
screen to the left. 


You’ll see another sound call at the end of line 80. This one 
is sounded every time the program cycles and, because as the 
variable ACROSS gets bigger, the pitch of the note gets 
higher, you’ll find that moving your ‘‘X’’ across the screen 
to the right will produce a constant higher tone, while 
moving it to the left will lower the tone. 


Perhaps the most interesting sounds are in line 95. Firstly, 
you get a beep, related to the number of shots you have left, 
every time you touch ‘‘M’’, whether you hit anything or not. 
Run the program, and hold your finger on ‘‘M”’’, and you’ll 
hear the tone steadily decrease till the ‘‘THAT’S THE END 
OF THE GAMB’’, message appears. Line 95, as you know, 
checks to see if your shot has hit anything (that is, it checks 
to see if that particular element of the string A$ is equal to a 
space), and if it finds that it is not a space (that is, that a 
‘‘duck”’ is there, and has just that instant been shot) the 
computer — as well as increasing your score by 57 — beeps 
again, with a tone which although different to the first one in 
the line, is related to the number of shots left. This means 
that if you have a successful shot, you’ll hear first the tone 
(which falls with each shot fired) from the first part of line 
95, followed by a tone (which rises as the SHOTS variable is 
decremented) which signals that a duck has been shot. So 
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you hear two tones, in rapid succession. And if you’re not 
quick in taking your finger off the ‘‘trigger’’ you’ll hear a 
third one, or even more. 


Lines 98 and 99, which change the border colour four times, 
are — of course — only triggered if you’ve downed a duck. 
It has the effect of creating border flashes very quickly in 
random colours, before reverting to white. The delay caused 
by this flash is very short, and gives good visual feedback, to 
back up the feedback from the sound to tell you that you’ve 
bagged another duck. 


The next version of DUCK SHOOT we’ll look at is, as ‘vou 
can see, considerabaly different from the ones we’ve been 
examining to date. At the very least, line 49 now looks 
extremely strange. This line is where a user-defined graphic 
(which, believe it or not, does look like a duck when the 
program is running) takes the place of the randomly-chosen 
letters. No matter how hard you look, you will not find 
anything that looks like that little duck on the keyboard. So 
where has it come from? 


1@ REM DUCK SHOOT 
11 Y$="¥ 
3.295 :POKES6, 27 

12 X$="IRRRRPRRSRRRRRRRRRRRBBI" - GOSUBI 
38 

15 POKES6879, 25 : POKE36869, 255 

26 LET SCO=@:PRINT"(3a"; :POKE65@. 255 
22 ¥Vi=15:¥2=15:$1=0:S$2=8:S3=@:S4=0: DU 
=1 

25 FORG=1T028: S2=G+298 : GOSUBS@aa : NEXT 
G 


38 LET SHOTS=15 

35 S2=@:FOR G=5aTO2QSTEP-2 :$3=280+G:G 
OSUBSIGGE: NEXTG: $3=8 

48 LET AS="GG2 G2 GE BG BEG Bee " 

38 LET ACROSS=14a 
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6@ LET DOWM=15 
7@ POKE646. INTCRND¢1)#6+2) : PRINTLEFTS 
C¥$, 895 AS: S2=250-SHOTS : GOSUBIGRA : S2=6 
8@ POKE646, 2:PRINTLEFTS(%, DOWN) ; LEFT 
$CA$,ACROSS-13; "8 % ": GETKS:S3=18G+AC 
ROSS : GOSUBSaAG 
82 S3=@ 
98 IFKS<>"M" THEN1 98 
95 S3=150+SHOTS#3 : GOSUBSS@ : $3=0 : SHOT 
S=SHOTS~1: IFMIDS¢A$. ACROSS. 13=" "THEN 
188 
97 SCO=SCO+57 : AS=LEFTS$(A$, ACROSS-1 +" 

“+MIDSCA$, ACROSS+1 > ‘S3=288-SHOTS : GOS 
UBS928 : S3=2 
98 POKE36879, PEEK(36879 )AND2480RRNDC¢ 1 
2#8 : POKE36879, PEEK (36879) AND24S0RRNDC 
1) #8 
99 POKE36879, PEEKS 36879 )AND2480RRND¢ 1 
2#8 * POKES6879, PEEK (36879 AND24S30R 1 
1@@ PRINT" SS@SCORE:";5SCO; TABC12> "SHOTS 
: "SSHOTSa. 

1@5 PRINTTABC12>"SLEFT" 

11@ IFSHOTSC1THENPRINTLEFT$¢(7$, 119; "T 
HAT’S THE EHD OF THE GAME": POKE36869, 
240: STOP 

128 ACROSS=ACROSS+(K$="2"9~CKS="C" 5 
138 AS=MIDS(A$. 25+LEFTSC(AS, 13 

14@ GOTO 78 
156 FORA=@TO7 

16@ READE 
176 POKE?168+A.B 

186 NEXTA: FORA=7424707431 : POKEA, 8: NEX 
TR 

19@ RETURN 
264 DATAG. 4.73. 222,62,8,8,8 
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8999 REM SOUND ROUTINE 

9808 POKE36878. PEEK¢36878 > AND24a 
9085 POKE36874.$1 :POKE36875. S2:POKES6 
876,53: POKES6877. $4 

9818 DY=(¥2-¥19/DU 

9615 FORI=2TODU 

9020 Y1=¥1+D¥: POKES6978. PEEK(368783AN 
D246 OF ¥1 

9838 NEXTI:POKES687S. PEEK(36878)AND24 
a 

9048 POKE36874, @:POKE36875, 0: POKE3687 
6,8: POKE36877.4 

$858 RETURN 


The duck has been ‘user-defined’. User-defined graphics 
are one of the really great features of your computer. 


The routine from line 15@ onwards reads in the data for 
the UDG (user-defined graphic) for the duck. This replaces 
the “‘@”’ sign. Details of this will be explained in chapter 
fourteen. 


Note by the way, that there is a change to the end of line 
7@ in this version of the program with the user-defined 
duck. Try working out a duck-shape of your own, on a 
grid you have drawn up yourself, and enter the required 
numbers in line 200. 


The final version of this program we will discuss has three 
rows of flying ducks. It is best to aim at the middle row of 
ducks (which fly more quickly than the bottom row) 
because they are worth 517 points, as opposed to the 57 
that each of the ducks on the bottom row is worth. The 
top row of ducks is just there to confuse you. They 
disappear automatically as the ducks in the middle row are 
shot, but cannot be shot directly, and do not contribute to 
your score. Ny 
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The middle row of ducks is held in the string BS which is set 
equal to A$ in line 45, as you can see in the listing: 


i1@ REM DUCK SHOOT 

{i YY S=" STATA STSTATA TESTS Te TTS 

5.255 :POKES6, 27 

12 AS="SRRRRRRRERRRRRRRRERRB!” : GOSUBL 

36 

15 POKES6879, 25: POKE368639, 255 

26 LET SCO=4:PRINT"THS"; :POKE6S@, 255 

22 Vie15:¥2=15:S1=8:S2=8:S3=8:54=8: DU 

= 

25 FORG=1 7028: S2=6+208 : GOSUBIGRE : MEXT 

G 

38 LET SHOTS=15 

35 S2=8:FOR G=58TO2GSTEP~2 : S3=280+G:G 

OSUB9IG89 : NEXTG : S3=8 

4@ LET AS="2G8 G2 G2 BG BER Bae ” 

45 LET BS=As 

S@ LET ACROSS=18 

68 LET DOWN=15 

7@ POKE646, INTCRND¢ 1>#6+2) ‘ PRINTLEFTS 

(Y$, 895 AS: S2=258-SHOTS : GOSUBSAAA : S2=8 

7a PRIMTLEFTS¢(7$,69; BS; LEFTS¢(7$, 595M 

D$CBS, 3); LEFTSCBS$, 2) 

84 POKE646, 2:PRINTLEFT#¢(7$, DOWH) > LEFT 

$(4%, ACROSS-19; "9% " GETKS:S3=198+AC 

ROSS : GOSUBIARB 

82 $3=6 

9H ITFKS<>"M"THEHL a8 

32 S3=158+SHOTS#S : GOSIUB988@ : S3=8: SHOT 

S=SHOTS~1: IFMIDSCAS, ACROSS. 19=" "THEN 
188 

94 SCO=SC0+57 :AS=LEFTSCAS. ACROSS—-1 9+" 
"+MIDSCAS, ACROSS+1> : GOTO97 


i”: POKES 
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33 IFMIDS(B$,ACROSS.1)="_ "THENIGa 

96 SCO=SCO+517 : BS=LEFT$(B$, ACROSS-1)+ 
" "+MIDS(BE, ACROSS+1 5 

37 S3=288-SHOTS : GOSUBSaaG : S3=8 

38 POKE36879. PEEK( 36879 AND2480RRND¢ 1 
et eK 
99 POKE36879, PEEK (36879 AND2430RRNDC 1 
#8: POKE36879. PEEK (36879 ANDZ480R1 
188 PRINT" MSSCORE:"; SCO; TABC123"SHOTS 
7"; SHOTS;" " 

195 PRINTTABC12>"SLEFT" 

114 IFSHOTS<1THENPRINTLEFT$(¥$,11)5"T 
HAT“S THE END OF THE GAME": POKE36869, 
24@:STOP 

126 ACROSS=ACROSS+(K$="Z"AND ACROSSD1 
3-CK$="C"AND ACROSS<21) 

13@ AS=MID$CA$, 29+LEFTSCA$, 1) 

135 BS=MID$(BS,3)+LEFTS<A$, 2) 

148 GOTO 7a 

15@ FORA=8T07 

168 READB 

17@ POKE7168+A., B 

184 MEXTA: FORR=7424707431 : POKER, @: HEX 
TA 

194 RETURH 

206 DATAG,4,73,222.62,8,0,8 

8999 REM SOUND ROUTINE 

3888 POKESS873, PEEK (3687S ANTZ4a 

9085 POKE36874. $1 :POKESS69875. $2:POKE36 
876.$3:POKE36877,$4 

9818 DV=(V2-¥i>/DU 

3615 FORI=2TODYU 

3828 ¥i=1+D\V': POKES6878. PEEK 36872) AN 
D246 OR ¥1 : 
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9834 HEATI:POKE36878. PEEK 36878 AND24 


«8 


9646 POKES6874, @:POKE36875. 8: POKESE87 
6,9: POKES6877.8 
9854 RETURN 


The middle row of ducks is shot at in line 96. If you shoot a 
duck in the bottom row, your shot ends there. After all, you 
cannot expect it to continue on to get a duck from the middle 
row as well. The GOTO 190 at the end of line 94 ensures that 
this does not happen. 


Line 135 moves the middle and top rows of ducks, changing 
the elements in the string by an extra element compared to 
the changes occuring in line 13@. Line 7@ prints all three rows 
of ducks, ‘‘inventing’’ the top (dummy) row by printing B$ 
out of register, so the ducks there appear ahead of, although 
flying in a synchronisation with, those in the middle row. 
this will be clear when you run the program. 


That brings us to the end of this series of DUCK SHOOT 
games. There are four things you can do to further develop 
the program: 


— Cut the number of shots available downto make 
it more challenging. 

-- User-define the man, so it is not just an ‘‘X’’. 

— Adda ‘‘highscore’’ feature, so the game will 
restart, preserving a high score you cantry and 
better. 

— Allow the computer to detect when all the A$ and 
B$ ducks have been shot (that will happen when 
A$ and B$ are just 32 spaces long, and contain 
nothing but spaces) and add a bonus to the score 
if this occurs before all the shots have been fired. 
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GETTING LISTED 


An array is used when you want to create a list of items, and 
refer to the item by mentioning just which position in the list it 
occupies. You set up an array by using the DIM command. If 
you type in DIM A(5), the computer will set up a list in its 
memory called A, and will save space for five items: A(1), A(2), 
A(3), A(4) and A(5). These, by the way, are called elements of 
the array. 


When you dimension, or set up, an array, the computer creates 


the list in its memory, and then fills every item in that list witha _ 


zero. So, if you said to the computer, PRINT A(1) or PRINT 
A(4) it would come back with 9. You fill items in an array with 
LET (such as LET A(2) = 1909) or using READ and DATA as 
we saw in chapter eleven. Once you’ ve filled a position in the 
list, whether you filled it with LET or READ, you can get the 
computer to give you the contents of that element of the array, 
by simply saying PRINT A(2). 


The next program dimensions (this, as we said, simply means 
sets up, Or creates) an array called A, with room for fifteen 
elements. The B loop from lines 30 to 59 fills the array with 
random digits between zero and nine, and then prints them 
back for you with the loop from lines 79 to 99. 


i@ REM ARRAYS 

2a DIM ACi5> 

38 FOR B=1 To 15 

48 ACBI=INTCRNDC19#9> 
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58 HEXT B 

68 FOR 2=% TO 15 

7@ PRINT"AC"GZ3"> IS"3ACZ) 

S8 FOR T=1 TO 18@:NEXT 7 

$6 HEXT 2 

This is called a one-dimensional array, because a single digit 
follows the letter which ‘‘labels’’ the array. You can also have 
multi-dimensional arrays, in which more than one number 
follows the array label after DIM. In the next program, for 
example, the computer sets up a two-dimensional array called 
A, consisting of four elements by four elements (that is, it is 
dimensioned by DIM A(4,4) as you can see in line 28): 


1@ REM MULTI-D ARRAYS 
28 DIM At4,4) 

34 FOR B=1 TO 4 

4@ FOR C=1 TO 4 

38 ACB, CO=INTLRND(19#9> 
6@ NEXT C 
74 HEAT B 

PRINT "Ta ce ae a 2 
FORB=1 TG 4 
PRINT" "335 "HF &"; 
FOR C=1 TO 4 

PRINT ACB.C); 

HEAT C 

PRINT 


HEXT & 


00 ty 
1) 150 


4 Gd To ee im 
Mm 


Pr be bee ee ee 
mr 


When you run it, you’ll see something like this: 
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You specify the element of a two-dimensional array by 
referring to both its numbers, so the first element of this array 
(the number 7 in the top left hand corner of the printout above) 
can be referred to as A(1, 1). The at the end of the line is A(1,4) 
and the 8 on the bottom row is A(4,3). 


Your computer also supports string arrays. Enter and run this 
routine to see a string array in operation: 


16 REM STRING ARRAYS 
24 DIM A$(5) 


- 34 FOR B=1 TO 5 


46 LET A$(B>=CHR$(INTCRNDC1#26+65)9 
38 HEXT B 

64 FOR B=1 TO 5 

?@ PRINT "ASC"GBi") IS "sAgeRD 

8@ HEAT B 


If you refer to an array that has not been dimensioned 
beforehand, the computer automatically dimensions one with 
eleven elements (@ to 19). You will get an error message if you 
refer to an element outside the arrays range. Notice also that 
you cannot redimension an array with the same name. To do 
this you must clear all the variables first with the command 
CLR. Beware though, this command will make your VIC 


forget all the variables in its memory (incidentally, so does 
RUN). 


16 REM STRING ARRAYS II 

26 DIM AS¢5) 

36 FOR B=1 To 5 

40 READ AS(B 

3@ NEXT B 

68 PRINT ASCINTCRND(19#5413)- 

7@ GOTO 64a 

198 DATAHI THERE, I‘°M CALLED ¥IC 
11@ DATAHERE’S LOOKING AT yoy KID 
12@ DATAHELP.FAR OUT MAN! 
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FAR OUT MAN! 

HELP 

HELP 

HELP 

HERE“S LOOKING AT YOU KID 
HELP 

HI THERE 

HERE“S LOOKING AT YOU KID 
HI THERE 

HERE“S LOOKING AT YOU KID 
FAR OUT MAN! 

HI THERE 

I°M CALLED VIC 

FAR OUT MAH! 

FAR OUT MAN! 

FAR OUT MAN! 

I’M CALLED VIC 


ESCAPING FROM MURKY MARSH 


This program demonstrates the use of a two-dimensional array 
for ‘‘holding’’ an object and for printing it out. The object in 
this case is a miniature dragon, who is trying to escape from 
Murky Marsh, indicated in this program by a square of 
brightly-coloured dots. Our dragon is very stupid, and moves 
totally at random within the marsh. He is free if he manages to 
stumble onto the outer right or bottom two rows. 


The dragon in this program demonstrates Brownian motion, 
the random movement shown by such things as tiny particles in 
a drop of water viewed under a microscope, or of asingle atom 
ina closed container. Brownian motion explains why a drop of 
ink gradually mixes in with the water into which it has been 
placed. 


Here is the program listing: 
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19 REM DRAGOH’S LAIR 

15 POKES6, 27: POKE55, 255 
26 DIMAC1@, 18) :M=9 

38 GOSUBS5aa 

46 A=IHTCRMD¢ 19#2> 

3@ IFX=@THENP=P+1 

68 IFX=1THEMP=P~1 

78 A=INTCRADC 1 #2) 

88 IFX=Q@THENQ=0+1 

98 IFX=1THENQ=Q-1 

198 IFQ<1THENQ=0+1 

118 IFPC1THENP=P+1 

128 M=M+1 

134 PRI NT" SRR BRISATTEMPT #"M 
424 FORK=1TO1a 

438 FORY=1T0106 

432 GR=1:Co=9 

435 IFA=QANDY=PTHENGR=@ : Co=2 
446 POKE38470+7#22+%, C0 
445 POKE775a+Y#22+%, GR 
454 NEXT ¥,¥ 

484 ACP, Q)=2 

498 IFQ>S0RP>STHENS6BA 

495 GOTO 4a 

388 Q=INTCRNDC13#39+4 
385 P=INTCRND¢ 13#33+4 
318 POKE36869, 255 

324 FORI=7168T07183: READY 
338 POKEI,%:HEXTI 

368 POKE36879,. 26: PRINT "7" 
588 RETURN 


538 DATASS, 72.76, 95,255, 223,189,514 


525 DATAG, 8.8,20,38.20,0,8 
688 POKE36869, 240 


618 PRINT" CQSWMESIHEL!. HOME AT LAST" 
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DAVY JONES’ LOCKER 

You can relax now with our next game — FULL FATHOM 
FIFTY — which uses two arrays (B and D) to store the player’s 
scores and dice rolls respectively. It is a simple game. You and 
the computer are in a race to roll a total of 5@ or more. You roll 
two dice at once, but the only time you score and get the total of 
the dice roll added to your accumulating total, is when both 
dice come up with the same number. 


You should know enough about how programs work at this 
stage to be able to determine what each section does, so we will 
not explain this relatively simple program. Get it up and 
running, and then decide for yourself how each section works. 
You’ll possibly then decide for yourself how each section 
works. You’ll possibly gain more from the program by working 
it out yourself rather than having it explained in detail by us. 


Here is the program listing for Full Fathom Fifty: 


S POKESES73¢, 1a 

i@ REM FULL FATHOM FIFTY 

15 POKE 36879,25:PRINT"Z)" 

26 DIM BC2):DIM DL2):RO=i 

23 As=" * 

38 FOR A=1 TO 2 

ae PRIMT"SRRURERES ULL FATHOM FIFTY? °F 
RINT " RIRUIMS(eISaTeSTeIee RE RE! BROUHD HU 

oe Ro; " 


ee tee 


8 PRINT" Reeeeee Re RRPRES 1 SCe" Bd i 


52 PRINT "Ree RSeblsiMANg" | BCs) 
So FPOKE 35979, 25+IHTCRHDCLi87> 
6@ iF Belss4S GR BL2oo4S OR Besib49 T 


HEN GOTO 238 
7@ TF R=1 THEN PRINT “SRR ERR ERIN 
“LL NOW ROLL THE BIE" :GOTO 9a 
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SO PRINT" HERMIRREM PRESS “R- “i 
G R tw 


OL 
GET 

‘OKE 38874. 202:POKE 26875, 200: POKE 
36876,268:FOR I=1 TO 40 

T 

OKE 36876. a 
88 FOR I=1 70 Sa:HEXT I:goTo as 
98 FORJ=288 10 253:POKE 36875, J:POKE 
36876, J:NEXT J:POKE 36675, 6:POKE 3687 
6.0 

109. PRINT" ORDROTEDROOON | AS 

118 FOR C=1 70 2 
120 PRINT" SOMERS = ROLLING 
DIE #"5C 
138 FOR M=24@ TO 150 STEP-.5:POKE 268 
76.M:NEXT M:POKE 36876,8 
149 LET D<C=INTCRNDC1 86041 
158 PRINT" SMUD «= «IT CAME 
UP"3D¢C9;" 8 
168 FOR G=2@@ TO 258 STEP.4:PQKE 3697 
4,G:NEXT G:POKE 36874,9 
165 PRINT" SRORRIOR RDI ; As 
17@ NEXT C 
180 IF 0¢12=D¢2) THEN 19a 
185 PRINT “SEARO THEY DO HOT 


COUNT": GOTD aa 
L3G PRINT“ SRMRRMETHE ROLL KA 
S"IDCLi "BHD" DC2):LET BCAD | READ agE- 
i? 

263 FOR G=159 70 28@:POKE 36875,9:NEx 
T G:POKE 36875, 0 

285 PRINT" Seenieeremmy ; As 

216 NEXT A 

228 ROSRO+1:FOR G=1 TO SQ:POKE 3687s, . 


“POKE 36874,8:POQKE 36875, a:P 
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24+INT CRNDCL #8) NEXT. G:POKE 36879,2 

‘GOTO 36 g SG 

238 PRINT" SUSeReRReReR ReMi THE 
WIHWER IS THE* 


24Q IF BCi3<B(2> THEN PRINT" ig 

HUMAN 

250 IF BC13>B(23 THEN FRINT"Z aig 
vIC * 
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LET THE GOOD 
GRAPHICS ROLL 


As well as the graphics available to you from the keyboard, the 
VIC allows you to define your own characters. 


If you missed out the section on binary in chapter twelve, now 
might be a good time to go back and read it. All the characters 
on your VIC are made up of 64 dots, arranged in 8 rows of 8 
dots. Can you see the relation between this and the binary 
system? Because each row is made up of 8 dots which can be 
either on or off, a row can be represented by an 8 bit number 
where each bit can be either 1 or @. Because an 8 bit number is a 
byte, and there are 8 rows of dots ina character, 8 bytes are 
required to define a character. If we imagine an 8 by 8 grid, with 
each row corresponding to a byte. Every space in the grid is 
represented by a @ in the binary number, and every filled in 
block Is represented by a 1. We can then change the resulting 8 
binary numbers into decimal as was shown in chapter twelve. 
Example, the letter ‘‘A’’: 


CHARACTER BINARY DECIMAL 
a YS 96611600 24 
SH SR 96196100 36 
—o segs 91860016 66 
Se yp es ee 61111110 126 
= RS ee ROS 91996610 66 
Sa A ee 91966610 66 
a 91866016 66 
Se a ra ae 9BBBDBOO 0 
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Can you see the correspondence? Your VIC has all its 
characters stored in memory in this way, 8 bytes per character. 
They are stored in ROM (so you can’t alter them) starting at 
location 32768. The data for the letter ‘‘A’’ starts at location 
32776. Use the PEEK function to see if the numbers are what 
they should be. 


If the characters are in ROM, how then are we going to change 
them or add our own? As was mentioned in chapter twelve, 
one of the registers of the VIC chip allows us to tell the 
computer where to get the data for the characters. By POKEing 
this register we can make it think the character data is in an area 
of RAM (which we can alter) where we have designed our own 
characters. 


When we do this, we must store our character data at the top of 
RAM (with a large address) which is above our program. We 
must be careful not to POKE into the RAM that holds our 
program or variables. To this end we make the VIC think that it 
has less memory than it does. By lowering the top of user 
memory (as the RAM where your program is stored is called) 
we can put our graphic data above this, and it will not be 
touched by the program. 


Register 5 of the VIC chip (location 36869) normally holds 249, 
which makes the VIC get its character data from the ROM. 
When we design our own characters, they are normally stored 
at location 7168 onwards. Therefore, we have to make the VIC 
think that the top of memory is location 7167. To do this, we 
carry out the following POKEs: 


POKE 55,255:POKE 56,27 


We usually store the data for our characters in DATA 
statements, which are then READ and POKEd into memory. 
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It is usually a good idea to design a space so that the screen does 
not become a mess. For a space, all you have to do is POKE 
locations 7424—7431 with zeros. This is demonstrated by the 
next program, which designs and animates a space invader. 


9 REM FRED THE INVADER 

1@ POGKE 35.255:PGKE Sé€,27 

15 ‘$= " STORET 

17 AS="SSRDERRPREERRESRRERE RB!" 

26 GOSUB 1886 

29 REM SET UP YIC CHIP FOR UDG 

38 POKE 36969, 255:PRINT"zJ" 

39 REM BLACK BACKGROUND AND BORDER 

4@ POKE 36879,8 

49 REM GREEN INVADER 

3@ *=11:Y=11: DR=INTCRNDC 193-1): DY=IH 
TCRND C1 343-1 > 

39 REM PRINT 

6@ PRINT LEFTS$Cy'$, ¥);LEFTS<X$, ¥ 5 "BRB" 
69 REM PAUSE 

7@ FOR I=1 TO S@:NEXT I 

73 REM RUBOUT 

8G PRINT LEFTS(¥4,Y9;LEFTS¢x$,%9 5" * 
94 IF RND<19>8.8 THEN DX=IHTCRHD(1>#3 
~1>/ DY=INTCRHDC 133-1 > 

188 K=X+DK YHy+Dy 

11@ IF x<@ OR X>2i THEN DX=~Dx:K=x+0x 
@ IF Yl OR P22 THEN DV=-By: y=y45y 
isa GOTO 5a 

3 REM USER DEFINED CHARACTERS 

@@ FOR [=7424 TO 7431:POKE 1,@:NEXT 


1@i@ FOR [=716e8 TO 7i7S:READ A:POKE 7 
A 

/ 

1229 HEXT 1:RETURK 
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1938 DATA 56. 124,214,214,124,56,84,14 
6 


If we start our characters at location 7168, when we use reverse 
mode, instead of user defined graphics, you get the normal 
graphics — but not in reverse mode, in normal mode. In this 
way you can mix normal and user defined graphics. This is 
shown in the next program, which prints up a score while the 
space invader moves around. 


9 REM FRED THE INVADER 

1@ POKE 55,255:POKE 56,27 
15 VS=" SNEDDON Tae 
17 X$="\BRODRRORDSRORROREDRERI" 

2@ GOSUB 1000 

29 REM SET UP VIC CHIP FOR UDG 

38 POKE 36869,255:PRINT "SSSCORE: ga 
gaa" 

35 PRINT "xDOReMA HI THERE!" : PR 
INT “@ I’M FRED THE INVADER" 

39 REM BLACK BACKGROUND AND BORDER 

48 POKE 36879, 

49 REM GREEN INVADER 

5@ X=11:Y=11:DM=INT(RNDC1 949-1) :DY=IN 
TCR 1983-13 

59 REM PRINT 

6@ PRINT LEFTS(Y$, 9) ;LEFTS<(N#. 895 IB 
69 REM PAUSE 

78 FOR I= TO S@:HEXT I 

79 REM RUBOUT 

8@ PRINT LEFTS<7$, Y>iLEFT#CXS.¥D5" 
98 IF RNDC1928.8 THEN DRSINTCRHDC L383 
~1) :DY=INTCRHDC 1982-1) 

18@ X=K+DK: Ys" +by 

11@ IF ¥<@ OR KD21 THEN DX=-DK:x=K+Dx 
126 IF YCi OR YD22 THE Dv=-DY:y=Y4Dy 
136 GOTO 68 
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999 REM USER DEFINED CHARACTERS 

18@6 FOR I=7424 TO 7431:PQKE 1,8:NEXT 
I 

1618 FOR [=7168 TO 7i75:READ A:POKE I 
Fi 


4 

1@2@ NEAT I:RETURH 

1636 BATA 56.124,214.214,124,56,84,14 
6 


Another way of doing this would be to PEEK the characters 
you wanted from the ROM and POKE them into RAM 
together with your own. The next program prints messages in 
reverse text (which you can’t get with the above method) 
together with the space invader. The above method should be 
used if possible, because this method wastes valuable memory 
which could be used for more of your own graphics. 


9 REM FRED THE INVADER 

1@ POKE 55.255:POKE 56,27 

15 $=" SADDSIeeLelel eee Delete ere eTete 

17 X$="IRDESRERPRERREERORES BST 

28 GOSUB 1908 

29 REM SET UP YIC CHIP FOR UDG 

3@ POKE 36869,.255:PRINT "sScoREG: a2 
gaea" 

35 PRINT “XBR HI THERE" : PRIM 
T " 1 AM FRED THE INVADER” 

39 REM BLACK BACKGROUND AND BORDER 

40 POKE 3697¢.9 

49 REM GREEN INVADER 

5@ X=11:Y=11:DX=INT<RND(1)#3-1) :-DY=IN 
TCRHDC 1383-1) 

59 REM PRINT 

6@ PRINT LEFT$¢Y$, 7) ;LEFTS(X$, X95 "HB" 
69 REM PAUSE 

7@ FOR I=1 TO 5@:NEXT I 
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79 REM RUBOUT 

86 PRINT LEFTS<CYS. YO; LEFTS(AS, 495" " 

94 IF RHDC1938.8 THEN DA=INTCRNDC Ld #S 

—1>-DV=INTCRHDC 1)%3-1) 

186 4=4+D4: Y=+DY 

114 IF *<@ GR wS21 THEN DA=-DX: H=A+DX 

120. IF YC1 GR Y22 THEM DY=-DY: Y=+DY 

138 GOTO &&@ 

999 REM USER DEFINED CHARACTERS 

198 FOR I=7424 TO 7431:POKE 1.0°HEXT 
I 

1919 FOR I=7168 TO 7173:READ A:POKE f 
1A 

1828 NEXT I 

1@3@ DATA 36, 124.214, 214, 124,56,84,14 

6 

1639 REM RERD DOWH REVERSE ALPHABET 
1646 FOR I=@ TO 207:REM 26 LETTERS Ti 

MES 8 BYTES 

{#56 POKE 7176+1,PEEKC338@8+1):HEXT I 
1264 RETURN 


MULTI COLOUR MODE 


Wouldn’t it be nice if you could get more than one colour ina 
character square? Well you can (that’s why we’ve got the 
heading), in fact you can have three colours not counting the 
background. These colours are as follows: 


Background 
Border 
Auxiliary 
Foreground 


The background colour is the same as normal. 
The border colour is the same as normal. 


The auxiliary colour can be one of sixteen (numbered @—15) 
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and is set by: 


POKE 36878, PEEK(36878) AND 15 OR (N*16) where n is 
the number of the colour. 


The foreground colour can be one of eight as normal, but 8 is 
added to the number when it is POKED to colour memory or 
location 646 (the current colour indicator). Adding 8 lets the 
computer know that we want the character to bein multi colour 
mode. 


Because there are four different colour combinations, we can 
represent this with two bits (counting between @ and 3). If we 
now have two bits per dot in a row, we can only have four dots 
in arow. Therefore multi coloured characters are composed of 
four dots across by eight down. The eight bits of each byte are 
split into four pairs, and each pair is interpreted as follows: 


06 — the dot is printed in the background colour. 
01 — the dot is printed in the border colour. 

19 — the dot is printed in the foreground colour. 
11 — the dot is printed in the auxiliary colour. 


Multi colour and normal modes can be mixed as this next 
program shows: 


1@ REM MULTI~COLOUR 

15 POKES6, 27 :POKESS, 255 

26 GOSUBiaag 

25 PRINT" READER RDRRRRMBRGITHERE ! 

28 FOR C=8TO15 

oo POKE646.C 

6@ PRINT" SECMeRe RR RRRBIEARC REBEBIEFG" 
65 FORN=8T015 

7@ POKE36978. PEEK (36878) ANDI SOR CHHIE6) 
73 FORI=1T05@:NEXTI 

8@ HEXTN 

65 NEXTC:GOTOSe 

1884 FORI=74247T07431 :POKEI,@:NEXTI 
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1865 FORI=7168T07231 :READA 

1918 POKEI.A:MEXT 

1@15 POKES6869. 255 :POKE36879, 26 

1826 POKE36879. PEEK (368783 AND1SOR(7#16) 
1825 RETURH 

9869 DATA, 168. 164.165, 165,.165.178,178 
9805 DATAG, 18,18,18,18.18.178.178 

9818 DATAS, 4,64,.88.88,20,80, 38 

9415 DATAG, 168, 164,244, 252.8, 168; 164 
9928 DATAL?S, 167,165, 165,165,245, 253.255 
9625 DATAZ5@, 258, 250:18,18,15.15,15 

9838 DATAS@. $4.80, 90.90,89,288,248 

9835 DATAL65, 165, 165. 165, 165.245,.253,255 


Remember the space invader? If we want to make him appear a 
bit more lively, we could make his legs move as he went about 
the screen. There are two ways of doing this, the first is to 
define two graphics corresponding to the two positions of the 
invader’s legs, and print them alternately: 


18 POKES6.27:POKESS, 255 

24 GOSUB 1989 

34 PRINT"2" 

49 4=0:=1:GR=8:CO=5:D=1 

34 POKE 7690+V#22+%, 32 

68 A=K+D 

78 IFA=@ ORA=21 THEMD=-D: Y=+1 
88 IF Y>26 THEH3@ 

36 POKE 38400+y#22+h,C0 

188 POKE 7680+'7#22+%,GR 

11@ FORI=170200:HWEXTI 

128 GR=1~GR 

138 GOTOSe 

1968 FORI=74247T07431 :POKEL.@:NEXTI 
1418 FORI=7168707183:READA 
1826 POKEI,A:NEATI 
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1838 POKE36879, 8 : POKE36869, 255 

1048 RETURH 

9088 DATA34, 68. 124.84, 124,56.68, 138 
9018 DATA136. 68. 124,84.124,56,68,4a 


The second way would be to redefine the actual character itself, 
without having to reprint it: 


1@ POKES6, 27:POKESS, 255 

26 GOSUR 1aaq 

3@ PRINT"Z" 

44 4=8: 421° GR=0:CO=5:D=1 

3G POKE 7688+Y#22+%,32 

68 X=X+D 

7@ IFH=@ ORK=21THEND=-D: Y=+1 

84 IF Y>2@ THENS@ 

96 POKE 38400+7#22+%,C0 

166 POKE 7680+7#22+%,6R 

11@ FORI=17T028@:HEXTI 

126 IFPEEK(7168)=34THENI4a 

138 POKE7168.34:POKE?7175, 13a:GOTO15a 
144 POKE71658,136:POKE?175, 4a 

154 GOTOSa 

1666 FORI=7424T07431 :POKEI,@:NEXTI 
1@1@ FORI=71687T07175:READA 

1928 POKEI.A‘NEXTI 

183@ POKE36879,8:POKE36969, 255 
1846 RETURN 

9008 DATA34, 68, 124,84,124,56,68, 130 


HIGH RESOLUTION GRAPHICS 


High resolution graphics is the term used to describe the ability 
to switch on or off any dot on the screen. This takes a lot of 
memory, and since the unexpanded VIC doesn’t have all that 
much to start with, we can only use a small screen. What we are 
going to do is termed ‘bit-mapping’ because each dot on the 
screen corresponds to a bit in memory. 
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What we must do is fill the entire screen with user defined 
graphics, each one different from the last. These are all initially 
defined as spaces (filled with zeros) so that the screen appears 
empty. When we want to plot a point (or pixel) on the screen, 
we work out which user defined graphic has to be altered and 
then set the required bit in the graphic to a 1. This instantly 
lights up the dot on the screen. The formula for calculating the 
user defined graphic to be altered is: 


GR=INT(X/8) + INT(Y/8)*8 


Where X is the horizontal coordinate (@ at the left to 63 at the 
right) and Y is the vertical coordinate (@ at the top to 63 at the 


_ bottom). The formula for calculating the correct row in the 


user defined graphic data is: 
RO=8*(Y/8— INT(Y/8)) 


The location in memory which has to be POKEd is then: 
LO=7168+ GR*8+RO 


The decimal value which will be ORed with the correct byte is 
calculated by: 


DV = 2{(7 — (X— INT(X/8)*8)) 
Thus a program to plot a parabola might look like this: 


1@ REM PARABOLA 

26 REM INITIALISE DISPLAY 

3@ POKES6. 27 :POKESS, 255 

44 PRINT"*)" :POKE36873:9 

34 FORI=8T063 

68 POKE?688+1.1:POKESS40@+T, 1 

7Q HEATI 

78 REM SHRINK SCREEN 

79 REM HORIZONTALLY 

84 POKE 36866, PEEK C36866)AND1280R6 
94 POKE 36964, PEEK (36864 ANDI280R25 
99 REM VERTICALLY 
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19@ POKE 36867, PEEK (36867 3ANDI290R1i6 
11@ POKE 36865.65 

119 REM CLEAR UDGS 

126 FORI=7168T07679 :POKEI.@:NEXTI 
129 REM UDG MODE 

138 POKE36869. 255 

199 REM PLOT PARABOLA 

268 FORAL=-31T031 

218 T1i=K112 

219 REM SCALE YALUES 

228 K=K1+31 

238 Y=71716 

248 GOSUB ianaG 

258 NEATKIL 

259 REM LOOP 

26@ GOTO 264 

9999 REM HIRES PLOT 

12888 IFXCBORA>E30RY<CQORY>S63THENRETURM 
18065 'VY=INTC63-"'+. 5) KEINTCX+, 5) 
18818 GR=THT CHS + INTC YS) #8 
18628 RO=SK(Y/S-INTCY/8) > 

198939 LO=7168+GR#8+RO 

18040 DY¥=27C7-CHK-INTCK/8) #8? 
19056 POKELO.PEEKCLO3OR DY 

18868 RETURH 


Notice how in lines 226 and 23@, the X and Y coordinates are 
scaled before the subroutine is called. The coordinates are 
rounded in line 19605. Also notice the last line, which makes 
the computer go round and round forever, known as an 
“infinite loop’’. You can, of course, use the plotting routine 
from line 9999 onwards in your own programs (you must 
remember to include the initialisation from lines 26 to 130). The 
next program demonstrates the use of sines and cosines to plot 
ovals and circles. 


CHAPTER FOURTEEN : ST 


1@ REM OVALS 

26 REM INITIALISE DISPLAY 

3@ POKES6, 27:POKESS. 255 

4@ PRINT"®" :POKE36879.8 

5@ FORI=aT063 

6@ POKE7680+1. 1: POKESS400+1,1 

7@ NEXTI 

78 REM SHRINK SCREEN 

79 REM HORIZONTALLY 

8@ POKE 36866. PEEK (36866 9AND1290R8 
94 POKE 36864, PEEK (36864 )AHD1280R25 
99 REM VERTICALLY 

104 POKE 36867: PEEK (36867 ANDIZ90R16 
11@ POKE 36865.65 

119 REM CLEAR UDGS 

128 FORI=7168T07679:POKEI,@:NEATI 
129 REM UDG MODE 

13@ POKE3S6869, 255 

199 REM PLOT OVALS 

288 FORA=1TOL@SSTEP.3 

218 B=T#ASS 

228 C=S1#COS(BI+31 

238 D=SL#SINCBI+31 

24@ K=C: =D: GOSUB198a8 

258 ¥=C0/2: =D: GOSUB1GR88 

268 K=C:Y=D/2: GOSUB1ag—a 

278 x=C/2:Y=N/2:GOSUBLEReA 

288 HEXTA 

298 SOTO298 

9999 REM HIRES PLOT 

1Q@@GA IFXC@ORK>ESORYCAORYSESTHENRETURN 
{@GQ5 Y=INT(63-7+, 5) A=INT (K+. 93 
19B1@ GReTHTCR/S + INTC Y/8 988 
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1828 RO=BeCr/S-INT CYS > 
19828 LO=7168+GR#8+RO 

10049 DV=2TC7~CK-INTCK/82#B) D 
19958 POKELO.PEEKCLOOR DY 
18868 RETURN 


CHAPTER FIFTEEN 
MORE GREAT GAMES 


In this final chapter, we’ll be giving you the listings of a number 
of major programs. The notes on these will not be as extensive 
as you’ve had with some programs, but the introductions to the 
programs will highlight some of the more interesting 
programming techniques used. Examination of the listings will 
give you a number of ideas you can apply to your own 
programs. 


BAGATELLE 


This is a simplified pinball machine, in which you and the 
computer take it in turns to roll diamond-shaped balls down a 
frame which contains a series of numbers and letters. Your 
score tends to increase each time you hit an obstacle on the way 
down the frame, and the ball will bounce off the obstacle, 
increasing your chances of hitting more obstacles. Hitting the 
sides of the frame, or bouncing around on the bottom, can cost 
you small penalties. In general, though, each time the ball hits 
something you’ll hear it do so, and have the satisfaction of 
seeing your score increase. — 


You start your ball rolling down the frame from any one of 
those. You and the computer have five balls each to roll down 
the bagatelle frame, and you take it in turns to do so. You have 
the first roll. Then the computer will tell you which ball it 
intends to roll down the frame, and then roll this ball. 
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The most noteworthy part of this program is the DEF FN 
command, which is used in lines 169, 188 and 200. Each time 
the program reaches the function FN SC(X) the computer 
calculates the formula in the DEF FN statement, replacing any 
occurrences of the letter in brackets in the definition with the 
letter in brackets in the call. Thus if we define a function named 
SC to find out what is on the screen: 


DEF FN SC(A) = PEEK(768@ + Y*22 + A) 
and we then call it with the statement: 
PRINT FN SC(X) 


This has the same effect as if we had typed: 
PRINT PEEK(768@ + Y*22 + X) 


The advantage of defining the function is that it saves typing 
and memory if you will be using that formula a few times. 
Notice that you cannot use words such as LET and PRINT etc., 
in the definition, only things which return a value. Functions 
must be named with one or two characters, the first must be a 
letter and the second can be a letter or number. 


In each case in this program, it is checking around the current 
position of the ball, to see if it is about to strike something. If it 
finds anything except a space, the score is incremented by the 
screen code (different from the ASC code), minus 48. You’ll 
see why, if you look up the code of the ‘‘/”’ which is used for the 
walls, and the code of ‘‘1’’. Good rolling. 


And this is the listing: 


16 REM BAGATELLE 

15 DEF FH SCCA)=PEEKC7680+'7#22+A 5 : POK, 
romeo 15 

i? 


; JOLLA 
18 Kaien epenr pe einctat 
26 GOSUB 198g 


CHAPTER FIFTEEN 


38 GOSUE 308 

35 FORY1=1 TO 5 

44 FORK=1 TO 2:PRINTLEFTS¢Y$, 29; LEFTS 
C4$.199571 

38 PRINTLEFTS(Y$, 23); 

35 IFA=2 THENPRINTY1; "ME "; 

56 IFX=1 THEMPRINTY1; "YOU"; 

sr PRINTLEFTS(7$, 219; 

68 IFR=2THEN?@ 

65 PRINT"WHICH NUMBER TO START": INPUT 
"WITH" K:IFKC1 OR K>STHENES 

67 GOTO ea 

7@ K=INTCRMDC 1 RO+1 > 

73 PRINTLEFTS(¥$,219; "1 WILL START W 
I THM 

77? FORE=1701@8:POKES6876, 200-E/’2: ‘HEX 
TE: POKE36876.,@ 

8@ PRINTLEFTS(7$, 1); LEFTS(4$, 34K); "9" 
iK: FORE=288T0258 

82 POKES6876,E:NEXTE: POKE36976.0:PRIN 
TLEFTS$(¥$. 13; LEFTS CRS, S+K) : "HI" SK 

96 BA=K+3:ERB=BA 

104 BD=1:EDB=1 

11@ IA=1 

124 ID=1 

138 PRINTLEFT$(7$, EDB+1 >; LEFTS$¢X$, EAB 
23" ": EAB=BA 

144 EDB=ED 

158 PRINTLEFTS(7#, BD+19;LEFTS(#. BAD: 
tg" 

16@ FLAG=@:7=BD+1:A=FN SC<BA>D 

178 IFAC>32 THENFLAG=1 :GOTO22¢ 

18@ Y=BD:A=FN SC¢BA+1) 

19@ IFAC>32 THENFLAG=1 :GOTO22a 

266 A=FN SCCBA-1> 


161 
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216 IFAC>32 THENFLAG=1 

228 IFFLAG=@THENZ25 

221 POKE36876.13@:1F RMDC19>.3 THENZ2 
3 

222 IA=-IA: ID=-ID:POKE36876, 150+2#IA+ 
S#ID 

223 POKES6876. 4: IFAC27THENA=A+64 

224 CCRI=CCRI+A-48 

225 PRINTLEFTS($,6);LEFTSCX$. 1895001 
>; LEFTS(7$, 8); LEFTS(%$. 1895062 

238 BD=BD+¢C TD#RNDC129+8, 75 

235, IF BACS THENTA=-1A: BA=5 

236 IF BI<{ THENID=-ID:BD=3 

237 IF BAPLSTHENIA=-IA: BA=13 

248 BA=BA+( TAXRNDC 13? 

25@ IF BRL19 THEM130 

268 FORG=128T0229 : POKE36876,G:NEXTG:P 
OKE36876,8 

278 GOSUBSa3 

288 MEATX 

298 NEAT? 1 

304 PRINTLEFTS$(4$,15); "THE WIHNER IS" 
jsLEFTS (YS. 179, LEFTS(A$, 9); 

318 IFCC19<C¢23 THEN PRINT"THE MACHIN 
E" 

328 IFCC29<C¢19 THEN PRINT"THE HUMAN" 
49@ STOP 

349 PRINT") @ 123456799 ":PRIMT 
LEFTS(YS, 5); LEFTS CXS. 19); "HUME" | LEFTS 
CY$,6)5 

342 PRINTLEFT$(X$, 19950¢1);LEFTSCY$,7 
D;LEFTSCRS, 1995 "VIC"LEFTS(7$. 93; 

385 PRINTLEFT$¢(X$, 199;C¢2);LEFTSCv$, 1 
>: LEFTS(X$, 13); "BALL" 

387 PRINTLEFTS¢CX$, 18); "THe" 
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Sif FORQ=1 TO 13 

528 POKE646, 2+RND¢1)#3:PRINTLEFTS(YS, 

+15; "MR" | LEFTSCY$, 0419 LEFTECHKS, 17) 

;uyn 

538 NEXTO 

535 PRINTLEFTS¢(7$, 1995 "MM eee eee eee 

fPLCE? 

54Q PRINT MA S444 e eee CLEC e" 

550 PRINTLEFTS(7$,.39;LEFTSCKS, 535 "1 

1 1"; LEFTSC(Y$,5);LEFTSCX$,335;"Z2 A 2 

ee 

56@ POKE646, 2+RHD¢ 1 #5: PRINTLEFTS¢7$, 

FXILEFTSCRE.495"2 11 11 1" 

S7Q POKE646, 2+END¢ 1985: PRINTLEFTS¢CY$, 

103: LEP TSE Se = Lae ke 

584 POKE646, 2+RHD 1985: PRINTLEFTS¢7$, 

i27;LEFTSCRS73I3"S SoH 

599 POKE646, 2+2ND¢ 1 #5: PRINTLEFTS¢$, 

157; LEPTSCKS, 695 °9° 9 BR" 

595 PRINTLEFTS(7$, 172; LEFTS¢X%$,49;"93 
8 Q" 

648 RETURN 

19@@ DIM Cl2) 

186@ POKE36879. 38:PRINT" CB ; 

1978 RETURH 


REPTILE 


In this program, by Paul Toland, you are in control of a snake, 
and you must try to grow your snake as long as possible, by 
directing it to the pound signs which it eats. However, the £s 
remain on the screen for only ashort time, after which they turn 
into poisonous dollar signs. The snake will also die if it hits the 
surrounding border, or itself. Once the game is over, you'll be 
told how long you became. 
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Notice how we use the function to look at the screen in this 
program as well. 


@ POKESS. 27: POKESS. 255 

1 POKE36878.15:DEF FN SC(A)=PEEK‘ 7680 
+7#2Z2+A) 

2 GOSUB488 

5 GOTO284 

7? L=2 

19 A1LS=CHRS(1O>+CHRSC11> 

26 ee 


25 $=" SDDDRDBRBBBBABBABOBDBI' 

34 POKE36879, 120: PRINT"Tm" 

35 FORI=128T0254 

4@ POKE36376, I 

S@ WEXTI :POKES6876.28 

68 MA=INTCRNDS 1 #22) 

78 MY=INTCRHDC 1 #22) 

88 Y=MY:IFFM SCCMX)<>32THENGO 

98 PRINT LEFTS¢Y$, M'+1>;LEFTSCRS, MKS | 
ange 

108 POKES6276. 150: POKES6S76., 6 

118 FORI=17T04a 

126 OX=ASCCALS 

125 GETKS 

138 O4=0A+CKS="A"9~-CKSR"D" 

146 OV=ASCCT1$) 

156 OY=O7+CKS=" "CK SS" KD 

166 IFOX=ASC CALS ANDOT=ASC C71) THENOX 
=0A+04-ASC MINS CALS, 299: OV=07+0-ASCC 
MIDSCTL$, 295 

165 TFOXC@OROA>2 10RO7<G0ROY221 THEN248 
178 Y=O":IF FM SCCOKI=156 THENL=L+i 
186 IF FN SCCOK3=164 OR FM SCCOKI=8 T 


CHAPTER FIFTEEN 


HEN268 

182 PRINT LEFT$¢7$, 07+1);LEFTS¢(KS, 0%) 
? u iz " 

185 PRINT LEFTS<¥$.ASCCMIDS(Y1S,L954+1 
»;LEFTS(K#, ASCCMIDSCX1S,L9995" " 

19@ X1$=CHRS(OX)+LEFTS(X1$,L3 

288 YIF=CHRECOYI+LEFTSCV1S;1) 

218 HEXTI 

220 Y=MY:IF FN SCCMX=156 THENPRINTLE 
FTSCYS, MY+1 3; LEFTS (KS. M49 5 RS" 


238 GOTO6a 
24@ PRINTLEFTS(Y$, 1)5 "Ma70U CRASHED I 
NTO THE SURROUNDING WALL-~---- mt 

254 GOTO2Z7@ 


260 PRINTLEFTSCY$, 195 "M¥WOU) HIT SOMET 

HING YOU SHOULD NOT HAVE~" 

278 PRINT" SAFTER GROWING TO"sL 

275 POKE36876, 128:FORI=1T0590:NEXTI 

277 POKES6876. 9: FORI=1T02000:NEXTI 

290 PRINT" MSG@G@RGG@G SSNAKEMREEEaERR" 

298 PRINT"SYGU ARE DIRECTING A MONE 

Y SNAKE AROUND THESCREEN USING THE KE 

ys" 

292 PRINT'SAD.Wex. YOUR AIM 1S TO M 

AKE THE SNAKE GROWBY GUIDING IT TO TH 

E* 

295 PRINT"@e SIGNS. ON WHICH IT FEED 

S. Wt 

BOG PRINT"NMSEACH £ REMAINS ON THE $C 

REEN FOR A SHORT PERIOD BEFORE" 

302 PRINT SCONVERTING INTO A $  WHIC 

H KILLS IF EATEN. THE SNAKE ALSO DIES 
IF"; 

985 PRINT’ SIT BITES ITSELF." 

307 PRINT"MSPRESS “Y’ TO START THEGAM 
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E OR “H* TQ STOP” 32 POKE36876,@:NEXTB 

218 GETAS 33 IFG=@THENE=2:G0TO115 

229 LFAS=""" THEN? 35 GOTO 76 

338 IFAS<>"N"THEN312 40 PRINT" See RRRRRB | -FORD=1T09 
335 POKES6869. 248: PRINT"T)” 45 IF C¢D3=Q@THEMPRINT"&i" sD; 

248 STOP 54 IF CCDI=1THENPRINT"S xX "; 

446 REM CHARACTER DATA So IF CCD s=2THEMPRINT"@ oO "; 

41@ FORI=7424T07431 :POKEI.@: NEXT! 68 IF D=3 OR D=6 THENPRINT:PRINTTABC? 
4296 FORI=7168T07175 23" ":PRINTTABC? 2; 

438 READH:POKEIL.W 7@ NEXTD: PRINT 

444 HEXTI:POKES6969. 255 > RETURN 73 RETURN 

45@ DATAZ31. 165,255.36; 36.255, 165.231 76 GOSUB46 


8@ GETBS: IFRSC"1"ORBS>"9" THENSS 
98 E=VALCBS) : IFCCE><>@THENSS 


STARS AND STRIPES 1@a CCE =e 

Despite what you first thought when you saw the title, this 118 IFLEMCAS¢E> 9=Q@THEN117 

program does not draw an American Flag. Instead, it plays an 115 F=ASCCAS(E> 3-88: GOTO1z4 

elaborate, and most colourful, version of Noughts and 117 PRINT" SM’; TABS7)9; "IT’S A DRAW": F) syarne ator 
Crosses. Once you’ve played a few rounds against the program ORG=150T0200 : POKE36876, G: NEXT : POKE368 a) 

as it is, you can modify it to play against itself, which is fun to 76,08: RUM 

watch. To make it an ‘Auto-Stars and Stripes’, change line 80 120 IFCCFI=QTHENI4@ 

ie ee 139 ASCE=MIDSCASCE),2):GOTO110 

GA BE=RIGHTS(STRE¢INTCRND(1)#94199,12 14@ CCF =1 


145 GOSUB4a 
158 [FCCL=C¢C29ANDCC29=C CS) ANDCC19<98 


Here is the main listing, in which you play against the 


computer: : 

7) THEN ON C¢19G0T0519, 520 
acer 168 IFC(4)=C(5)ANDC(5)=C¢6ANDC(4)<>0 
+o POKES6S7S se PR 178 IFC(79=C(BANDC(8)=C(92ANDCL7)<98 
15 PRINT OODGODODNBDIS ‘ THEN ON C¢7)G0TO51a, 520 
17 PRINT SERODDOODDOORR BBR: 180 IFC(1)=C¢5ANDCCS)=C692ANDOC 1968 
; THEN ON C¢1)GOTOS1a, 520 
Ja ineecar es en 198 IFC(3)=CCSANDC(5)=C(7 ANDC(3)<30 
3 RESTORE :G=@:FORB=1T09:POKESES76, 130er or 70" THEN Of! CCS 2G0TOS12s 528 


@+B#2 : READA$(B> : [FCC B)=@THENG=6+1 286 IFCC1 =C (4) ANDO 4)=007 ANDO“ 19<98 
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THEN ON C(1>GOTO51@.528 

210 IFC(2)=C(SANDC(S)=C¢ 83 ANDC(29<08 
THEN ON C(2)G0T0514, 520 

220 IFC(3)=C¢6 ANDC(6)=C(9ANDC(39<98 
THEN ON C(3)G0T0514. 520 

23@ GOTO 3a 

519 PRINT’ Mm"; TABCS); "2 WIN! 1": FORG 
=128T0208 : POKE36976, G: NEXTG : POKES6876 
»@: RUM 

52a PRINT" MMMMYOU WIN! 1": FORG=128T028 
8: POKES6876. G: NEXTG : POKE36876. 0° RUN 
520 DATAUKWSYT'?, P. UWYATYX, ASUVYA. OSWT 
VR, SQUUX, OSU, SOWLYYYT s SQUAW 


CHECKERS 

Challenge your computer to this traditional board game of 
skill. In this program, written by Graham Charlton, you enter 
your moves as the letter across the top followed by the letter 
down the side of the square you want to move from, then after 
pressing RETURN the letters of the square you’re moving to. 
the entry must be in the form of “‘AB”’ or rad ag 


{ GOSUBSaaA 


6a GOSUBTaaA 

{GQ0 PRINT" See leeleteleee” 

{G85 PRINT"THIS MOVE" :MOQ=@: INPUTFH 
1@1@ PRIHT’ TO": INPUTTHS 

14508 PRINT"TISTAND BY" 

1@60 ¥$=LEFTE (FHS, 1): 7#=RIGHTS (FHS, 1) 
:FREASC CAS) -FYSASCCYS) 

{G65 ¥S=LEFTS<THS, 1): '7$=RIGHTS¢THS: 1) 
: TREASC (XS) : TY=ASCC YS) 

1A7@ FX=FX-64: PY=FY-64: TH=TH-84 | TY=TY 
-64 


CHAPTER FIFTEEN 


1428 MO=@ 

1438 AACTY, THOSRACPY FR) AACE FASB 
145@ IFABSCTY-FY>>1THENMO=1 : ACF Y+¢¢T 

W—-FYD/2)  FRECCTR-FRI 729 =B: T=T+1 

1478 GOSUB7aaa 

2900 Y=8 

2806 *=8 

Se IF AgCY. X90 AND AXCY. 49<>KTHEN 
18 

2038 IFAKCY.X2=C AND =8THENAMCY KO=K 

2048 FORD=8T03 


2041 Q=-1 
2045 IFK+2#x(D<1 OR A+2#ACDIDSTHENZS 
38 


2846 IFY+2e7CD9¢1 OR Y+2kY CD SSTHENZ 
38 

2050 IFCARCYSYCD) KtKCDIIEH OR AAC+ 
CD). X+K CD) =H ANDAR CY +287 CD) X+28K CD) 
»=BTHENO=D 

2078 IFAZCY.X<>K ANDDDITHEN2129 

208@ IFQ>-1ANDO<4THENZ125 

2098 NEXTD 

21@Q IFAX¢Y. X9=HANDY=1THEMAACY, Aah 
PAG K=%-1: IFX>BTHENZO28 

2115 Y=Y~1: IFYSOTHENZIG6 

212@ IFQ=-1THENZ354 

2125 PREK+2HK CO): PY=Y+ oH COD 

2130 S=S+1 

2iBS ARCY+YCQ). KEK CO) =B 

2140 AACPYs PRISARCY AD 

2145 ACY. X=B 

2158 GOSUB7ER8 

2155 M=-1 


‘2168 FORD=8TO2 


2165 IFPX+2#KCDI<1 OR PA+2#y CDS >8THEN 
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2288 

2166 IFPY+2#7¢D9<1 OR PY+2#YCDI>STHEN 
2286 

2178 IFAMCPY+CD3,PK+KCD3I<OHAND AxCP 
YC D>. PA+KCD) )CSWTHENZ 138 

2175 IFARCPY+7<D>#2. PX+2#x¢ D3 >= BTHENM 
=D 

2184 IFAZCPY, PKOC>KANDD> 1 THEN2218 
2198 IFM>-1THENZ214 

2208 NEXTD 

2218 IFM=-1THENS@ 

2228 ALCPY+Y CMS . PATKCM) 9=B 

2222 AXCPY+2#' CMD » PRAZHR CMD D=AKC PY PX 
) 

2224 AXCPY, PKI=B 

2226 S=5+1 

2234 GOTO5a 

2358 Y=6 

2368 PY=INTCRMD(1>#8+19 > PH=INTCRMDC 1) 
#HEt 1D 

2378 Y="+1 

2371 Q=-1 

2375 IFY>4Q@QTHENZ444 

2388 IFAZ (PY. PXI<>CANDAZC PY, PXAO<SKTHE 
N2368 

2394 FORD=e@TO3 

2395 Q=-1 

2396 TFPY+¥CDCLORPY+4 CDI SSTHEN2425 
2397 IFPR+XCDCLORPR+K CD) >STHEN2Z425 
240@ IFAZCPY, PXO=CAMDDSITHENS425 

241@ IFAMCPY+'7 (CD). PA+KCD) )=BTHENQ=D 
2420 IFQ>-LANDQC4THEN2468 

2425 HEAT 

2430 IFY<4@1THEN2Z36@ 

2448 FS="L" 


CHAPTER FIFTEEN 


2459 GOTO7a88 

24608 AACPYH7( 0). PHFR CRD DSARCPY PHD 
2478 ACP PAI=B 

2494 GOTOS8 

7209 PRINT" ABCDEFGH” 

7aa5 FORY=1T08:POKECO+Y#22, 1:POKESC+Y 
¥22,'7 

7@1@ FORK=1T08:CL=@: IFAKCY, )=16@THEN 
CL=6 

7@1i5 IFARCY. Xo=C OR AKC. HO=KTHENCL=5 
7820 IFAACY. KISH OR ABCY, XO=WTHENCL=1 
7825 POKECO+Y#22+% .CL:POKESC+Y#22+% . A 
Ces BD) 

7838 HEXTS. 

7025 PRINT" Se OMPUTER' S "al 


7837 PRINT" THUMAN"T 
7948 PRINT" 


it 


7645 PRINT" 


7458 PRINT" 


721@ IFF#="L"THENPRINT:PRINT"I CONCE 
DE THE GAME": STOP 

7238 IFS=12THEMPRINT:PRINT"SITITTW WW 
IN": STOP 

7244 IFT=12THENPRINT :PRINT"MITITI NOU 
WIN" : STOP 

7260 Us="": TFMOCS1L THEN? 265 

7262 PRINT" SRRRRRICAN YOU JUMP AG 

RAIN "> IMPUTUS 


- 7265 MO=4 
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7310 IFLEFTS$CU$, 19="¥" THENFHS=CHRS (TX 
+64)+CHRE(TY+64) -GOTOIA1A 

732@ RETURN 

7908 STOP 

9900 DIMAZ(S, 8) 

9085 YCOI=L ACM=-L CLL HC Led 
OBB YCZI=—1MCQI=-2 BSH KCBIEL 
9950 H=209:C=215:H=139°K=151 

QR6G B=16O:G=-1:F$="":S=8:T=2 

9961 CN=38409:SC=7682 

o965 FORY=1T08: IF2KINT(Y/2)="THENFORA 
={TO?STEP2: GOTOS@75 

9878 FORK=2TOSSTEP2 

9a75 ANCY, X=160 

9080 IFINT(H/2)¥2=xTHENAN CY, X-19=32 
OABS IFINTCX/2)#2C>XTHENAL CY, X+1=32 
9090 NEXTK.Y 

9115 FORY=1T03 

9120 IFQKINT ('¥/2)="THENFORX=1 TO7STEP2 
:GOTOS130 

9125 FORK=2TOSSTEP2 

9130 ACY. XI=C 

9135 NEXTX.? 

9140 FORY=6T0S 

Q145 [FQKINT(¥/2)="THENFORM=1TO7STEP2 
:GOTOS155 

9158 FORX=2TOBSTEP2 

S155 ANC. KISH 

3160 NEXTK.Y 

3165 FHS="":THS="" 

8300 POKES6879,9:PRINT"TZEDRAUGHTS" :PR 
INT:PRINT'SDO YOU WANT FIRST MOVE" 
9310 INPUTY$:PRINT"<I" : IFLEFTS<Y$. 135" 
d" THENRETURN 

9349 GOSUB7aR2 
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9350 A=INTCRNDC 19#3+19#2:>Q=INTCRNDC1) 
#23 

9376 AKCS+7 (0). AKAD 9=C ARCS, AD=168 
9394 RETURH 


FOLLOW ME 


In this game, you have to duplicate the colour and tone pattern 
generated by the computer. There is a catch. At first, you will 
have only one sound/colour combination to remember. Then 
the computer will add a new combination to the first one, and 
play both. You will have to repeat both. Then the sequence will 
become three sound/colour combinations long, and you have 
to repeat all three... and so on. 


You copy the computer’s sequence by using the keys numbered 
1 to 4. There is a high score feature. 


1@ H=6 

24 POKE36879.8 

3@ POKE36872. 14 

3@ PRINT"Ts" 

6@ DATA2, 5.3.7 

78 J=RNDC-TI? 

84 RESTORE 

9@ PRINT"I" 

1409 A¢="" 

118 S=@ 

120 D=180 

130 MS="#8#" 

208 PRIHTM$; TABCI3>. "MSIMON” 

214 PRINT" SeRASCORE";S:PRIMT” SSR ol 
HI SCORE";H 

Ree Rt Be ae Sete e 
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246 FORT=1TOD#3 : NEAT 

258 AS=AS+CHRECINTCRND( 1 2#49413 
255 FORT=1 TOLENCAS) 

268 FORA=1TOASCOCMIDS(A$, Td 

274 READE 

288 NEXTA 

285 RESTORE 

286 POKES46.5B 

298 PRINT" SSRRERRREREMA 


380 PRINT " Sat TAISIAISISISINTBTRTeTeTe | TABCLASCS 
MIDSCA, T29-19#5); 

365 PRINTASCCMIDSCAS, T2) 

319 POKE36876. 183+CASCCMIDSC AS, T39-12 
#12: POKES6875, 201 : FORI=1 TOD#S : HEAT 
328 POKE36876. @:POKE36875.8 

338 PRINT" ON 


Ml"; TABS CASC( 


335 PRINT" SIE 
MIDSCAE. Td d- =1945)5" : 
340 HEXTT 

358 RESTORE 

368 FORA=1T04 


370 PRINT " Se eeeeeie lalate eels" | TABC CA-1 
9#5)5AR 
388 READE 
386 POKEG4E, B 
Mele" | TABS CA-1 


HSI" S ; 

448 HEXTA 

418 RESTORE 

415 FORT=1TOLENCAS> 
428 FORA=1TOD*3 

430 GETI¢ 

44@ IFI$>"Q"AHDIS<" 5" THENSSS 
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458 MEATA 

464 MS=MIDS(Ms, 2) 

455 FORK=17T02:FORI=1T012 

478 POKE36879. 8+1#16+INTCRHD(12#8)41; 
POKE36878. 18+] :POKES6877. TXINTCRMDS 13 
#OD+1 

484 POKES6876., 200-1#18:POKES6375. 150+ 
INT CHRD 1 3#89+1%5 : POKES6874, 130+ INTCR 
HD¢19#180> 

49@ NEATI.# 

548 POKES6874, G:POKE36875, @ : POKES6876 
,@:POKE36877. 8: POKE36873. 1¢ 

SiG FORI=245TO15@STEPR-. 5: POKE3S6877, 1: 
NEXT : FORI=129T020@ : POKE36377. 1: NEXT 
S15 POKE3S6877.8 

52@ POKES6879.3 

338 PRINT" T)" 

535 IFM$<o""THEN2Z5S5 

548 GOT0648 

558 IFVALCIS$)<>ASCCMIDS(AS, T> > THENSES 
569 POKES6876, 183+¢VALCI$)-1)#12:POKE 
36875, 281 

S62 FORI=1 705: NEXT : POKES6875.@:POKE 
36876. 

565 GETI$: IFI$<>""THENS6S 

378 NEATT 

58a PRINT"?)" 

598 S=S+1 

648 D=D-S75 

614 IFD<@THEND=8 

628 IFHCSTHENH=S 

638 GOTOZEa 

64@ FORA=1T02a 

658 POKE3S6S75. 128+A 

668 POKE36876, 240-R#S 
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67@ FORI=17T018@:HEXT : POKES6S75,@:POKE 
36876.9 

675 NEATA 

688 PRINT" SRRISCORE";S 

694 PRINT"MRWHI SCORE";H 

708 PRINT" ERRRMMMPRESS ANY KEY TO P 
LAY AGAIN, " 

718 GETAS: [FAS=""THEH718 

726 GOTOsa 


ECOLOGICAL DISASTER 


Here’s your chance to make decisions of national importance. 


the program explains the starting scenario. 


See if you can get the lake to survive longer than 19 weeks. 


5 COS="Miim ali" -POKES6S78. 15 . 

19 REM ECOLOGICAL DISASTER 

15 RH=RMD¢ 1? : BH=a:POKES6879, 24: PRIMTC 
HR#C147); 

28 PRINTTABC2);"m'70lJ ARE THE 
PRESIDENT ’S” 

34 PRINT" ADVISOR OM MATURAL RESOU 

RCES, AND PART OF YOUR JOB 1S TO STOCK 


4@ PRINT" A NEW LAKE IN MICHI 
GAN WITH FISH AND EELS...." 

34 PRIHT" THE ONL CATCH IS THAT 
THE FISH AND EELS ARE ENEMIES.... 


66 PRIHT” ‘YOU MUST SELECT START 
IHG NUMBERS OF FISH AND EELS WHICH” 
7@ PRINT” WILL ENSURE THE LONGE 


CHAPTER FIFTEEN 


ST POSSIBLE SURVIVAL OF THE LAKE 


150 PRINTS PRESS A KEY WHEH 
YOURE READY " 

168 GETA$: IFA$=""THENI6O 

165 PRINT!" 

17@ PRINT"ENTER THE STARTING § NUMBE 
R OF EELS ‘LESS THAN 1003." 
175 INPUTEL 

180 IFELD1QQ0REL<1THEN75 

19@ PRINT"EHTER THE STARTING § NUMBE 
R OF FISH (LESS THAN 1009," 
195 INPUTFI 

200 IFFIDi@Q0RFI<1THENI95 

205 FI=FI/3:WE=0 

218 FORG=13aT0230 

220 PRINTMIDS(COS, RND(1 #641, 1; 

225 Tels 

AKE 1S EVOLVING" 

238 POKE36976,G:NEXTG: POKES6876. 9 

295 WESWE+1:PRINT"2" ; 

24 POKES6879,4@:PRINT"MREPORT TO PRE 
SIDENT ATTHE END OF WEEK" ;HE 

250 EL=EL+(<S#EL-EL#FI/34#RN? 

260 FISFI+((4#F1-FI#ELD#. OL) 

270 PRINT" MMDMa" | TABCS) | MID$(COS, RNDC 
18641, 195-INTCFIDRCFIDOD; 

275 PRINT"§@ FISH" 

230 PRINT MMMa" | TARCS) | MIDS(COS, RMDS 
1)#6+1,193-INTCELHCELDO); 

295 PRINT"I EELS" 

290 IFELS2 OR FIC2THENPRINT"S)"; :GOTO3 


3@8 GOTOZ14 
318 IFWE>BWTHEHBW=WE 


177 


178 GETTING STARTED ON YOUR VIC 20 


315 FORG=1T04a 

328 PRINTMIDS¢(COS, RND(19#6+1. 195 "ECOL 
OGICAL DISASTER": 

338 POKES6S79, 48+RHDC19#8 :POKE36876.2 
a8-G 

344 HEATG: POKE36376, 4 

368 POKE36879, 25: PRIMT"TE"; 

38@ PRINT" MEM IT’S ALL OVER HOW,” 
39@ PRINT" NATURAL RESOURCES ADT 
SOR. SIR!" 

40@ PRINT"SEM ‘YOUR LAKE STAYED" 

465 PRINT” ALIVE FOR"; WE; "WEEKS" 

41@ PRINT" SQ YOUR BEST TQ DATE" 

445 PRINT” IS"; BW: "WEEKS..." 

42@ FORG=13@TO230STEP. 1 

425 POKE36876.6 

436 NMEXTG:POKES6876,4 

44@ PRINT"2"> ‘GOTQ2R 


CASUALTY 

In this program written by Paul Toland, you are on a minefield 
which is full of casualties. You have to push a wheelchair 
around the minefield, avoiding the mines and electrified fence, 
to collect each casualty and bring him or her to the hospital 
(shown asa +). The wheelchair can only carry one casualty at a 
time. 


5 POKES6, 27: POKESS, 253: POKES6878., 15 
18 : 
15 $=" DBDODEDEDBSRBRSRSBSEBE” 

17 DEF FH SCCAD=PEEKC7688+'7#22+AD 

26 GOSUB48G . 

22 GOTO618 

3@ POKE36879.127:PRINT"CMDDDODLDDDDDD 


DDD 
35 
48 
45 
a8 
35 
64 
98 
ia 


vis 
CHE, 


118 


CHAPTER FIFTEEN 


DDDDIDD" 

FORI=7702T08142STEP22 
POKEI+30729.2:POKEI+39741.2 

POKET, 5:POKEI+21,5:MEXTI 
FORT=81647T08185 : POKEI+3472a,2 
POKET,4:NEXTI 

PRINT" ms"; 

FORT=1 TO 28 

PRINT LEFT$<("'$.RMDC19#174+35;LEFT$ 
RHDCLeL8+2>; "CO" 

HEAT I 

PRINT" ; 

FORT=1T028 

A=INTCRMD 1 #15942 
V=INT (RMD? 117) +2 

IF FN SCCK9<>32THEN13@ 
PRIMTLEFTS¢(V#. +1) jLEFT#CX$, X95 "B 


NEXTI 

PRIHT"2" ; 

CRR=8 

RETA 

= 11 » foe 1 arr 

A=: D=8 

PRINTLEFTS¢9S. P+19;LEPT&CK$, X35" 


PRIMTLEFTS(Y$, 29 ;LEFT#(#$. 1195 "a 


GETI¢ 

IFT$="R" THEHR=~1: 
IFI$="D" THEHA=1:D 
IFI$="8" THEMA=8:0D 
IFI#="H" THEMA=4: 0 
ASAT Y=+D 

CH=FH SOCKS 
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265 PRIMTLEFTS(y#. 7+1);LEPTS(4$.%350H 
R#(64+CAR > 

27@ IFCH=3 THENSaa 

288 IFCH=4 ORCH=5 THENS2@ 

298 IFCH=2 ANDCAR THENS4@ 

3@8 IFCH=2 THENCAR=1 

31@ IFCH=171ANDCAR THENCAR=4:POKESS97 
6,200: RE=RET+1 : POKE36976, 8: IFRET=28TH 
ENS68 

328 FORI=17T0 DELAY: NEXTI 

338 GOTOZ36 

400. FORT=7424T07431 :POKEI-@:HExTI 

41@ FORI=7168T07215 

428 READN:POKEL.H 

438 HEXTI 

444 POKE36869. 255 : RETURN 

458 DATA192, 192, 144,248, 144, 144,150.2 


468 DATAL92. 192, 156, 252. 152.159, 159.2 


474 DATAG.@,9,4,8, 289,209,255 
488 DATA@,@,4,68,92,255,68.4 
498 DATASS. 65. 162, 162.28,28,9.8 
495 DATAL2:3:12.46,192.48.12:3 
388 PRIHTLEFTS¢(7$. 7+19;LEFTSCR$, 495 "fii 
‘: POKES6876, 128 

510 PRINTLEFTS¢('7$, 23; "@@VvOU HIT A MIK 
E": POKE36876., 4: GOTO68G 
52@ PRINTLEFTS¢¥$. 2); "MMR Z222227AAA 
ARPPP" 

S25 FORT=128TO17@STEPS 

53@ POKE36876, I: POKE36375, +1 
535 NEXTI:POKES6876.8:POKES68 
o588 

546 PRIMTLEFTS(¥$. 2); "MMISSTHE WHEEL C 


a 
fa 8:50 


4} 


ae 


CHAPTER FIFTEEN 181 


HAIR IS" 

o45 PRINT" SSBBBISOYER-LOADED" : GOTOSaa 
368 POKE3S876, 208: POKE36875. 258 

o°@ PRINT:PRINT"SSVOU DID ITitiis 
392 POKE36976,4&:POKE36875.4a 

644 PRINT"sg/OU RESCUED"; RET 

6@5 PRINT"S QUT OF THE 20" 

6@7 FORI=170490@:HEXTI 

618 PRINT" THDDDODD M4 INE-FIELDeDDoNND” 


628 PRINT" S8 THERE RARE 24 CAS 
UALTIES LYING IN THE MIWEFIELD.IT I 
5" 


622 PRINT" SOUR JOB TO BRING THEMTO T 
HE HOSPITAL IH A WHEELCHAIR ONE AT A 


625 PRINT" S@TIME., THE FENCE ARQUMDTHE 
FIELR IS ELECTRIFIED 50 AYOI 
tr" 

627 PRINT" @CONTACT WITH IT." 

638 PRINT"SaASCHOOSE A SKILL LEVEL a 
TO. 5. <3 ERSY>" 

635 INPUT" a"; DELAY 

646 IF DELAY<@ ORDELAYDS THEN635 

658 DELAY=DELAY#15+4 

se@ GOTO 


SLALOM 


In this game you control a skier who is skiing down a slope. 
Turn your man left with the Z key, right with the M key. 
Decrease his speed with the C key and increase it with the B key. 
Watch out for the trees and ice, and try to navigate between the 
posts. 


182 GETTING STARTED ON YOUR VIC 20 


1 PRINT"<]" : POKE36879. 30: FORI=768@T031 
85: POKEL, 160:HEXT : POKES6878. 3 

2 POKESS, 96:POKES6, 29: FORT=7528T07679 
*READR:POKEIL, R‘ HEAT: POKE38969, 255 

3 P=11:SC=7688:05=384080 :C0=30720:S=6: 
L=2@8+¢ INTCRND? 19#50> >: D=2:SP=2 

18 IFL=@THENS2 

11 IFRND(19<. 25THENLG@ 

12 IFRND¢19<. @STHEN?S 

13 IFRND(1)<, 35THEN3@ 

15 FORI=1TOINTCRMD< 13%49+1 

28 TR=B164+INTCRND¢ 19 #22) > POKETR+CO,5 
:POKETR, 49: NEXT 
25 5070188 

34 CR=S164+INTCRNDC 158179 

4G FORI=iTOINTCRND¢ 12#4941 

S@ POKECR+CO+1, 3:POKECR+I. 48 

68 NEXT 

65 GOTO1aG 

78 PO=8164+INTCRND(15%14) 

75 POKEPO+CO, 4:POKEPO, 5S@:FORI=1TOINT¢ 
RHDC 1) #4942 

38 POKEPO+I, 224: NEAT 

99 POKEPO+I+C0,4:POKEPO+1, 50 

91 GOTO108 

92 POKES172+00.:POKES176+C0. : POKES! 
S1+C00.6:POKES152+C0, 6: POKES153+C0.6 
95 POKES1 72.231: POKES176, 229: POKES151 
, 58: POKES152, 59: POKES153.68 

148 POKE??@2+P. 168° POKE7724+P., 164 

{as AEE SLL! J } 
Stil 
11@ PRINT" 3M345a";5 
124 Z=PEEK‘1973 


CHAPTER FIFTEEN 


138 U=P 

135 IFZ=33THEHD=D~1: IFDC{THEND=1 

136 IFZ=36THEND=D+1 : IFD>STHEND=3 

137 IFZ=330RZ=36THENPOKE36877.. 248 

144 U=U-CD=1) #¢U>B9+CD=39#CUC2 1D 

15@ SP=SP~(Z=34)#¢(SP>15+¢Z=35)#CSP<5) 
151 IFZ=340RZ2=35THEMPOKE36874. 208 

160 IFPEEKC7724+U>=490RPEEK {7724+ 59=5 
@THENP=: GOTO1aaa 

17@ IFPEEK{7724+U>=224THENS=¢ S#29+¢18 
¥5P) > FORM=208T0245 : POKES6876, %: NEXT 
198 [FPEEK “C7 724+U>=48THENSP=INTCRHDS 1 
2#5)+1 > S=INT(S°2) : POKE36875, 235 

182 P=L 

185 IFPEEK“7768+P >>S7ANDPEEK (7 769+P 9< 
61 THEH2238 

198 POKE??782+P+C0, 2:POKE77244+P+C0,2:P 
COKE? 7@2+P, 44: POKE7724+P, 4440 

195 IFL=-4@THEN3@aa 

288 FORT=17T019@-(SP#2a) > NEXT : POKES687 
4,@:POKE36875. 8: POKE369876. 8: POKE36877 
»8:GOT018 

251 .31,251.136.48.2 

255 -6 

1998 POKE3S6874.8:POKE36875,  : POKES687 
6&.@:POKE36877,4 

1961 POKE?7@2+P. 160:POKE7722+P, 168: IF 
PPLSTHENI 118 

1918 FORI=7746+PT07746+P+INTCRNDS 1345 
i+1 

1428 D=D+1: IFD>4THEND=1 

143@ POKEI+CO,2:POKEI,53+D 

1935 POKES68?77. 238+¢1-7746) 

1448 FORJ=17T01988: NEXT 

1@5@ POKEI. 16@:NEXT :P=P+5 
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1118 POKES6877.4:FORI=7746+PT03164+P5 
TEP 22 

1126 D=D+1: IFD>4THEND=1 

1138 FOKEI+C0, 2:POKEI.53+D 

1132 READNO 

1135 POKE36875.HO 

114@ READPA:FORJ=1TOPA: NEXT :POKE36875 
»@:FORJ=17022 > HEAT 

115@ POKEL, 164:HEAT 

1155 POKE36877, 140: FORI=1T050@: NEXT 
1168 POKE36877. 4: FORI=1T03808: NEAT: PO 
KE36869. 240: PRINT"T" : POKESS6879. 6 

1208 PRINT" S4BRD LUCK; OL! CRASHED" 
1S PRE NT " SSS aa ae HR RRR © 
13@1 PRINT" MRSCORE:"S 

1205 PRINT" MEMO YOU" 

131@ PRINT"WANT ANOTHER GOS?" :POKE1S3 


8 

{328 GETAS 

133@ IFA¢="Y"THENRUH 

1340 IFA$<>"N"THEN132@ 

1356 EHD 

2aa@a POKE36974,@:POKEI6875. 2: POKESE87 

6,4: POKES6877.2 

2085 POKE36878, 1:POKES6877, 241 :-FORI=1 

TO1G 

2818 FORJ=8TO2Z2 

2015 POKE7724+P-¢ J#229+C0:2 

R28 POKE7724+P-—¢ J#22), 614+]: FORK=1T03 
169 

2838 HEXT 

2a4a FORJ=OT02 

2845 POKE7690+P+< J#Z29+C0,2 

2A5@ POKE7E68O+P+¢(J#223,.62-]°FORK=1TO1 
168 
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2468 MEATI.1 
2679 POKES6S77.4 
2289 POKE36869, 248:PRINT"T" :POKE36879 
+118 

2218 PRIMT"MWELL DONE!" 

2249 GOTO13a0 

2806 POKE26869. 248:PRINT"S" : POKE36879 
2216 

3414 PRINT"SM@YOU MISSED THE FINISH FO 
STii* 

3828 GOTO1308 

7762 -7746 

9900 DATASG. 56.56. 156.124, 196,186,186, 
186, 48,48,42,44, 72. 144,32 

39819 DATAL86. 40, 48.48,40,68.0,8,186.4 
6,480,168, 184,36,13:8 

9928 DATAG.8,4:4,18, 173, 182.193,8.28, 
28,62,.62,127,127.8 

9938 DATAIG. 24.28,38.16,16,16,16 

9046 DATA, 9,238. 136.232,40,238,0,8;,8 
2239, 178,174,172, 234.8 

3058 DATA, @,244,128.224,128,244.8 
3864 DATASS. 56, 16.124,196.178,40,198, 
4§.136,251,31,.251,136,48.8 

9878 DATAL9S. 40,170, 186.124.16,56,56, 
@.12,17,223,.248,223,17.12 

9888 DATAZSS, 194.222, 222,194,222,222, 
255,255, 138.178,178,178,171,178,255 
98994 DATRZ5S, 43,235,235, 35,171.43, 255 
319@ DATASS. 56,16, 124,186.170.48, 148. 
36:56, 16,68:219,24.36,192 

3118 DATA, 186.186. 146. 124,56.4a, 
9508 DATAL9S, 606,8.6@.195,450.8.6 
3.158, 195,.688.8,.60,283.450,201,15 
9318 DATA, 60,201,450,195,150,4,6 


38 
¢i9 


8,19 
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5.456,4,68,195,150.8,68,195,758.8,258 
»8,258 


OPERATION DESPERATION 


Your planes engine has stopped as you are flying over a large 
city. Your altitude is decreasing rapidly, and your only hope of 
landing intact is to flatten the city with your bombs. Due toa 
fault in your missile tracking system, only one bomb may be in 
the air at any one time. 


At the start of the program, line 26 sends action to the 
subroutine at line 350, where the user-defined graphics are 
constructed ‘‘@”’ is the unit of ‘wall of window’ used to build 
up the city. ‘‘C’’ is the bomb, ‘‘A”’ is the roof of the buildings, 
“B’’ is the ground, and ‘‘D”’ is the plane. 


Once the program is working satisfactorily, the graphics can be 
created. Working in this way (instead of defining the characters 
before you start on the mechanics of the program proper) 
ensure you do not get so engrossed in making pretty graphics 
that you forget to make the program worthwhile in its own 
right. 


On returning from that subroutine, a routine (from 288) is 
called by line 3@. This prints up the instructions: 


THE ENGINE OF YOUR PLANE HAS STALLED 
WHILST YOU ARE OVER A LARGE CITY. YOUR 
ONLY HOPE OF LANDING SAFELY IS TO FLATTEN 
THE CITY WITH YOUR BOMBS. PRESS ‘F’ TO 
RELEASE A BOMB; ONLY ONE BOMB MAY BE 
FALLING AT ANY ONE TIME. 


PRESS ‘Y’ TO START, ‘N’ TO STOP. 


After the instructions you’ll see one way of using GET to wait 
until a specific key is pressed (other ways of doing these are 
demonstrated in other programs in this book). The string 


i 


s 
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variable A$ is set equal to GET. Line 319 checks to see if A$ 
equals ‘‘Y’’ and if it does, the program goes to line 49, to begin 
in earnest. If A$ does not equal ‘‘Y’’, the programm ‘falls 
through’ to the next line, where a check is made to see if A$ 
equals ‘‘N’’. If it does, the program terminates in line 320. If it 
does not, line 33@ is reached, which sends the computer back to 
300 to read the keyboard again (that is, to get another value of 
GET). This cycle continues until either ‘‘Y’’ or ‘‘N’’ is 
detected. 


Back at line 49, the background and border colours are set to 
white (colour one), and the screen is cleared (end of line 49). 
Our city is constructed by the double loop (I and J) from lines 
5@ to 100. Note that a random colour (black, blue or red) is 
selected by line 60. As this is outside the J loop, everything 
printed within a particular run of the J loop will be in one of the 
three colours, although buildings on either side (each complete 
J loop constructs one building) may well be in other colours. As 
you’ll see when you run this, the effect is most impressive. 


The variables X and Y are both set equal to zero. The variable 
BY isset to — 1 inline 115. BY isthe ‘bomb drop’ flag. (A flag is 
a variable within a program which is used to signal the presence 
or otherwise of a certain condition). In this case, the flag BY 
equals — 1 when no bomb has been dropped, and changes to 
+ 1 when a bomb has been dropped. BX is the X coordinate of 
the bomb when it is falling, and BX is set equal to zero in line 
115. 


Line 129 prints a white blank where the plane has just been. By 
printing over the old plan position with a blank, and very 
shortly afterwards (line 16@) printing a new plane, the illusion 
of a moving plane is created. In essence, as you saw earlier in 
the book, this is how most moving graphics programs work. An 
object is printed in one position, held there for a moment, 
erased, then reprinted in a different position, creating the 
impression that a single object has moved from one point to the 
next. 
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Line 13@ adds one to the value of X, which determines how far 
across the screen the plane will be printed. If X equals 22, then 
the plane has reached the side, so one is added to the value of Y, 
to move it one line down the screen, and X is reset to one to 
make the plane re-appear on the left hand side of the screen. If 
Y equals 22 (the end of line 14@ checks for this) then the 
computer knows the plane has managed to reach the ground 
safely, so attention goes to line 240, where the ‘‘well done, 
you’ve made it”’ message is printed. 


The contents of the square into which the plane will be printed 
is checked. If it is 32 then all is well. There is just empty sky 
ahead. Any other value (that is, not a space — code 32) then the 
computer knows the plane is about to crash, and the program 
goes to line 269 where the ‘‘you blew it’’ message is printed. 
The plane is printed, by line 169, in its new position. 


Line 17@ looks to the keyboard, to see if ‘‘F’’ for fire is being 
pressed. If it is, and the flag BY has the value — 1 (remember, 
BY changed to + 1 when a bomb is in the air) then the starting 
position of the bomb is set equal to the current position of the 
plane, to ensure that the bomb will be seen to fall from the 
plane. Line 18@ checks the value of BY again, and if it is —1, 
then goes back to line 12@% to repeat the ’print the blank, check 
for a crash, print the plane’ routine. 


If the bomb has been dropped, then the test on BY in line 180 
proves negative, so the GO TO 128 at the end of line 180 is 
ignored. Line 198 ‘unprints’ the bomb, 200 increments its 
downward position, and line 205 checks to see if the bomb has 
hit the ground (BY equals 22) and if it has, makes a noise, and 
returns to 12@ to move the plane. PEEK is used again; this time 
to check if the bomb has hit the top of a building. If it has, the 
top of the building is erased, the bomb flag is set back to —1, 
there is a tone, and the program returns to 128 to move the 
plane along. If the bomb has not hit something (so the PEEK 
finds a 32), the bomb is reprinted in its new position. Line 225 
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sends action back to 120 to move the plane. Notice that so long 
as BY equals +1, the ‘print the bomb’ cycle is traversed, until 
the bomb hits the ground or the top of a building. 


Congratulations are held by line 249: 
“CONGRATULATIONS — YOU MADE IT”’’. After a tone, 
the program goes to line 288 where the instructions and option 
to play is displayed again. Line 260 holds the grim news of 
failure: ‘““YOU CRASHED AND ARE NOW PART OF THE 
CITY SKYLINE’’. A mournful tone is heard and the 
instruction/game option appears. 


You may wish to add a delay after lines 240 and 268 so that 
there will be a short pause between the end of one game, and the 
possibility of a new game. 


3 POKES6, 27 :POKESS, 255 

i@ LETSC=7698:LETCS=39498 

24 GOSUB3SSa 

38 PRINT"2)" -GOTO2ea 

4Q@ POKES6879. 25:POKES6869, 255:PRINT"S 


45 FORT=4847T05305 :POKECS+1.5:POKESC+I. 
2: HEXT 

S4 FORI=1T028 

6@ IFRND‘(1)<. STHENCO=8: GOTO7E 

64 [FRHD¢19<. STHENCO=2 : GOTO7a 

66 IFRNDC19<. STHENCO=6 : GOTO?a 

74 FORJ=21T012+RHD¢ 1 #1 @STER-1 

88 POKESC+J#22+1.4:POKECS+J#22+1.C0 
94 NEXT J: POKESC+J#¥22+1,1:POKECS+J#22+ 
1,00 

168 HEATI 

118 “=8: =a 

115 BY=-1:Bx=8 

128 FORi=1T01@0‘HEATI :POKECS+Y¥#22+h. 1 


= 
= 


190 GETTING STARTED ON YOUR VIC 20 


138 “A=K+1 

14@ IFA=Z2THENY="+1 : 4=8: [FY=23THEN240 
158 [FPEEK CSC+Y#22+4 9 Co S2THEH268 

16@ POKESC+7#22+%, 4: POKECS+Y#22+%, 8 
179 GETAS: IFAS="F"ANDBY=-1 THEMBY="' : Bx 
=4~-1 

18@ IFBY=-1THEH120 

198 POKECS+BY#22+Bx, 1: POKESC+BY#22+Bx 
132 

268 BY=By+1 

205 IFBY=22THENBY=~1 :GOTO12a 

214 IFPEEK(SC+BY#22+Bx )<>S2THENGOTOZS 
a 

220 POKESC+BY#22+EH . 3:POKECS+BY#22+Bx 
2 


in 


225 GOTO122 

234 POKECS+BY#22+Rx,. 2:POKESC+BY#22+BX 
232 

235 FORI=1T0150: HEAT :POKECS+BY#22+Bx, 


236 BY=~1:G0TO124 
244 POKESO~1+7#22+% s 4: POKECS-1+/#k22+% 


245 PRINT" TI CONGRATULATIONS. a 
OU MADE IT!" 

254 GOTOZS6 

268 POKESC+T#22+%, 6: POKECS+Y#22+% 2 
265 FORT=17T01308:HEXT 

263 PRINT'SH'OU CRASHED AND ARE NOW 
PART OF THE CITY SK'YLIWE." 

286 POKES6869.240:PRINT"MAITHE ENGINE 
OF ‘YOUR PLANE HAS STALLED WHIL 
ST YOU ARE" 

282 PRINT"OVER A"; 

285 PRINT"LARGE CITY.YOQUROHLY HOPE 0 
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F LANDING SAFELY IS TO FLATTEN THE ¢ 
ITY WITH OUR" 

286 PRIHT"BOMBS.PRESS ’F* TO RELEA 
SE A BOMB; ONLY ONE MAY BE FALLING A 
T ANY ONE "; 

29@ PRINT" TIME.":PRINT" Mla PRESS THE 
oe hey 10 START. “N* TO STOP.< * 
388 GETAS 

318 IFAS="""THENGOTO4G 

328 IFAS="N"THENSTOP 

338 GOTO328 

358 FORI=7168T0727 : READH:POKEI.N: MEX 
T 

368 RETURN 

419 DATAL27.127.127,73,73.73, 127.127 
426 DATA@,8.8,28,62,127,73:73 

436 DATAZSS. 255, 255, 255.255,255, 255.2 
33 

446 DATA36. 68, 24,24,60,60,68;24 

458 DATAG, 144, 136.254,63,.12,8,16 
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computer. 
a Usual Computer 
= Symbol: Symbol: 
= + (plus) + 
= — (minus) - 
738 x (multiply) * 
q + (divide) / 


USING MATHS 


Here is a summary of the mathematical symbols on your 


m" (raise to power) mf{n 
The mathematical functions are: 


Computer Meaning: 
word: 
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Tt The constant 3.14... 
* VAL Returns the numerical value of 
DEF FN Defines a function, to be called N 
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ARGTANGENT 


TANGENT 
Reduce to next lowest whole number 

Sign (returns —1 if negative, 9 is zero, 1 if 
positive) 
Returns number without its sign (so ABS 
— 5is5) 
Square root 
Natural log 
(see valentino) 
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